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ERPITORI AL 


I thought (1 would be a nice touch to have the June INSIDE INFOQ slightly larger and here it is! In INSIDE INFO 
No.17, I had hoped for the theme of the June issue to be Home Finance and Applications. Instead, this issue has seen 
the birth of some new coluans. I have been giving serious thought to the format of INSIDE INFO. Perhaps there should 
be aore regular coluans catering for special interests, e.g. Adventure', Assembly Language Programming. Should there 
be an arcade gage every issue? I would like to know how members feel about INSIDE INFO and how it could be modified 
to best suit everyone’s needs. [ need FEEDBACK!!! 


Congratulations aust go to Peter Bamford for the best article selected from INSIDE INFO issues 13,414.15, Peter’s 
article was an instructional quide to wiring up an extra keyboard to an Atari. 


Of late, I have had the distinct feeling that INSIDE INFO is becoming increasingly technical in nature, going way 
above some of our aeabers’ heads. This quilt has prompted ee ta start up a beginners’ column in the next issue, | 
would like to hear from meabers’ who are new to coaputing on the Atari and find out in which direction the coluan 
should start and head. 


Now for a few pieces of trivia. It has been announced by Atari that the new Atari 8 bit portable computer (465-XEP) 
will be scrapped. It is believed that the 465-XEP will be replaced by a more cowerful nortable version of the new 
Atari 16 bit machines. Sart move. If that wasn’t enough, Atari also said that the operating systeas for the ST 
computers will not be on-board. The ST operating systea will be disk based rather than in ROM chips. So BASIC, L060 
and GEN will have to be loaded from a 3 inch floppy. Rugours are that Atari are having troubles with the operating 
systea chins in a rush to get the ST’s off the asseebly line. One machine that is off the production line is the new 
LSOKE. And talking of chips, the AMIE chip is troubling Atari causing delays in the 65XEM. Now for the good news?... 


It is strongly rumoured that the new Australian distributor for Atari will be INDELEC Pty. Ltd. Please refrain from 
bothering INDELEC until their distributorship is finalised through advertising. 


An upgrade from DOS 3.0 will soon be available in the fora of 005 2.5, It is upwardly compatible with DOS 2.0 and 
allows enhanced density with the 1050 drive. 


Well, that’s about all I have to say and I hope you enjoy this issue. 


Ken Shiu 
NOTICES 


NEW MEETINGS VENUE 

Due to a lot of trouble we encountered at our previous meetings’ place, the committee decided to look for a new 
venue. Qur new venue is in the 2nd Floor of the YWCA (Corner of Wentworth Avenue and Liverpool Street, adjacent to 
Hyde Park South). Meeting times are as usual and to settle the members down a trifle, coffee will be available at 


aeetings for a sere twenty cents. A restaurant/canteen is open from OPM to 7PM on the ground floor, offering hot and 
light aeals. 


NEW INFORMATION PAGE 


As you may have noticed the Information Page has been moved to the second last page of INSIDE INFO. As you should be 
aware new aeabership is $20 and renwal $15. This can all be carried out on the tear-off slip at the bottom of the 
page. You should be constantly aware of updates on the Inforeation Page in subsequent issues. 


CLUB T-SHIRT PRINTS AVAILABLE 


If you have a plain T-shirt lying around, you eight like to jazz it up by having the ACE loan printed onto it. You 
can have this done at club seetings from now on, The styles available are:- 


1. Bca round logo, with lettering around border. $1.00 

2. 7cm high x {4cm@ long logo with fancy lettering to right of logo (as on Inside Info). $7.00 

3. 24cm round logo (no lettering). $4.00 

These styles are available in BLACK, BLUE, RED , YELLOW or WHITE‘on request). 

Should there be members who are unable to attenc meetings, an order can be placed by sending a note to Club's 


postal address, stating METRIC shirt size, COLOUR, and style. Please include cheque to cover cost of STYLE, T-SHIRT 
($4.00) or SLOPPY JOE ($6.50) and Postage ($1.35) and your address. 


rag 


SOFT wAReE- EC XCHARNGE NEWS 
from barry Francis 


In INSIDE INFO No.7, I gave a broad outline for the reorganisation of the Software Exchange. After five aonths of 
hard yakka, I’m glad to say that this is virtually complete. Thank you all for waiting so patiently while things 
were sorted out. A summary of the current situation appears below. 


Boxes of {0 blank Nashua disks are available for $27.00 plus postage. (Surface mail postage is currently $1.20 in 
N.S.W and $1.55 interstate.) These are very attractive, top quality, single-sided, double density disks with hub 
rings and there’s no reason why you can’t use the second side. Price includes a plastic box, labels, write protect 
tabs and a five year warranty! 


Boxes of 10 blank C-45 cassettes are available for $97.00 plus postage. (Surface mail postage varies between $2.20 
and $5.20 depending on the zone. Write for the exact cost or enquire at your local post office.) 


There are now ii disks of software in the Software Exchange including six brand new titles. This is all top-notch 
material, not to be aissed by any self-respecting Atari user. The price of all disks has been reduced to $8.00 
including surface gail postage anywhere within Australia, 


INSIDE INFO Vol.i: This contains all the programs from INSIDE INFOQ issues 1-6. There are 42 BASIC programs and 4 
assembly language source listings including a lotto selector, a GRAPHICS 0 colour selector, a keyboard organ, 
Mastermind, Snake, Squares, a flashing cursor routine, Doggies, a program listing utility, Grab An Apple, Boxes, a 
breek alphabet and stacks of colourful graphics demos and tutorials. 


INSIDE INFO Vol.2: This contains all the prograes from INSIDE INFO issues 7-10. There are 21 BASIC prograas and 2 
asseebly language source listings including fine scrolling demos, a fast block sove using strings, menu programs, a 
cataloguing prograa, electronic poker, 7 aathesatics prograes and various sound and graphics demos. In addition to 
all that, there are 8 cartoons from Allan Sayth including Hagar the Horrible, Mickey Mouse, Andy Capp and sore. 


INSIDE INFOQ Vol.3: This contains all the prograes from INSIDE INFO issues {1-15. There are 2! BASIC prograes 
including a routine to set up the controller ports for input or output, a utility to ease the task of checking for 
typos, a Siaple terminal prograg, a sector reader, a light pen deao, a page flipping demo, a lotto selector that 
talks to you if you’ve got 5.A.M., a sector editor, Gobbler, Tiny Text, graphs programs, character set utilities and 
pore. 


Atari XL Translator: This double sided disk allows XL owners to run software that could previously only be used on 
the 400/800 because the authors had broken Atari’s rules and used illegal entry points into the Operating Systea. 
This 15 an essential item for al! A400XL and BOOXL users, | 


Team Atari fig-FORTH: In case you didn’t know it, FORTH is one of the aany powerful prograaaing languages that can 
be used as an alternative to BASIC. This disk contains a full implementation of fig-FORTH {as defined by the Forth 
Interest Group) with a good editor and heaps of extensions to cater for the Atari’s input/output, sound and graphics 
capabilities. Superb valuc! » 


Computer Cricket: This is K. J. Bricknell’s monusental simulation of limited-over cricket as documented in INSIDE 
INFO No.17. Qne or two players can captain any of the six touring parties on the disk or you can use the utilities 
provided to modify thea or create your own teas. Another utility allows you to play a whole series! This was 
added after the original article appeared in INSIDE INFO, but is documented on the disk. 


Digitised Photos: This is an autobooting disk of four digitised photos which really show off the potential of 
graphics aodes 9, 10 and 11. Play with the START, SELECT and OPTION keys to change pictures, colours and special 
effects, Very impressive, but two of the pictures are... er ...R-rated? 


Slide Show Vol.i: This is an autobooting, self-running slide show featuring ten full colour pictures of popular 
cartoon characters such as Wal and the dog froa Footrot Flats, Snake, Charlie Brown, Fred Bassett and more. Four of 
these appeared on the front cover of INSIDE INFOQ No.17. The pictures were created by lan Champ using the Atari 
Touch Tablet and Atari Artist (or Micro Illustrator) software, while the automation and fancy dissolves between 
pictures are from Joseph P. Grande’s "Fader® in Antic September 1984, This is a great disk for showing off your 
Atari or for use as anin-store demo. If anyone has created their own high quality pictures (by any means 
whatsoever), please send thea in for inclusion on future Slide Show disks. 


Adventure Collection Vol.i: This is the first disk of Adventures prepared for the Adventure 5.1.6. It contains four 
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Adventures from past issues of the now defunct SoftSide magazine. Three of these are traditional two-word text 
Adventures, while the fourth allows only single word input, but has illustrations of every room. The games are all 
reasonably easy and are therefore good introductory Adventures for beginners. (The next volune will be better and 
harder!) Incidentally, this disk has also got a very nice title page! 


Page 4 Vol.1: Page 6 is a bi-eonthly Atari users’ magazine which is published in the U.K. It 1s a cross between the 
totally commercial magazines (like Antic and ANALOG) and the higher quality users’ group sagazines/newsletters (like 
INSIDE INFO). We have had an exchange subscription with Page 6 since the magazine’s early days and now, after much 
typing of programs, correspondence with Page 4’s editor and long distance disk swapping, I’@ happy to present a 
coaplete collection of all their prograas since the very first issue! I have prepared six disks and will 
"otficially® release two with each issue of INSIDE INFO over the next few months (although you can order all] six if 
you like). The first disk contains all the programas from issues 1-3. There are 2! BASIC programs including a 
Masteraind-type gage, a line listing utility, Vultures, Four In A Row for two players, a routine to print playing 
cards in GRAPHICS 0, a calendar prograa, a neat maths prograa based around cricket, two character design utilities, 
a master directory utility and several graphics demos. (Incidentally, some issues of Page 6 can be borrowed froa the 
library or you can subscribe by writing to Page & Magazine, P.0. Box 54, Stafford, ST16 1DR, U.K. 6 issues costs 
10.50 pounds for surface mail or 14.00 pounds for aireail). 


Page 6 Vol.2: This contains all the prograss from Page & issues 4-6. There are 24 BASIC prograes including a lunar 
lander, Merlin’s gagic square, a disk sorting utility, a finance prograa, Target, a tutorial on POKEing to screen 
geacry, two iteas of @usic, vertical aoveaent for player-sissile graphics, a tutorial on binary numbers, Scrasble, 
Dodger and lots of other neat stuff. 


A PLEA FOR MORE SOFTWARE! 


About 18 wonths ago, I started collecting and cataloguing software from all the computer magazines. The reason for 
this was threefold. Firstly, I wanted to get ay own collection into some sort of order. Secondly, some of the 
Magazine software is in the public domain and I wanted to add it to the Software Exchange for the benefit of all 
meabers. Thirdly, we needed some software to put on the Bulletin Board. 


To keep a long story short, I as now in the position where I have a heap of magazine prograes, but there are too 
many gaps in the collection to put it in the Software Exchange yet. We want a complete collection of every program 
ever published in a particular magazine before we release it. All you people out there can help by submitting all 
the programs you have ever typed in from @agazines. Your disks will be returned as soon as possible, and for every 
progras that we don’t already have, you’!] receive at least one in exchange. So it’s acase of first in, best 
dressed. To sake your job easier and eliminate some of the quesswork, I’11 begin publishing lists of the prograas 
that we need. This issue concentrates on Antic because it is the closest to being complete and most of their stuff 
is in the public dosain. If you have typed in any of the following programs, please put thea on a disk and give it 
to se at a peeting of post it to Software Exchange, Atari Coaputer Enthusiasts (N.S.W.), 6.P.0. Box 4514, Sydney, 
N.S.W. 2001. 


August 1982: ~ Hokey Pokey Interrupts (Assembly) 
Translate August 1983: 


October /Noveaber 1982: 

Bubble Sort (Asseably) 

Deceaber 1982/January 1983: 

String Search (BASIC and Assembly) 
Brafix (2 listings) 

Christeas Mailing Lister 
February/March £983: 

Valentine’s Day Card 

Ut, Ut and Away (2 listings) 
Grading on the Curve 


April 1983: 
Supercharging BASIC (BASIC and Asseabl y) 


May 1983: 

Invisible Sector (2nd prograa) 
Idiotproofing Your Keyboard 
June 1983: 

Dancin’ Nan 

Autoboot for BASIC (Asseably) 
Stargazing 

duly 1983: 

Conserve RAM 

Talk is Cheap (Assembly) 





Turn Coat 

3-D Fuji (2 listings) 

Micropainter Picture Utility | 
Color Codes for Resistors (2nd prograe) 
September 1983: 

P-K Tutorial 

Pattern Maker 

October 1983: 

Reset to Rerun 

Time Your Fire 

Make A Face 

Microloader (2 listings) 

Mountain Skiing 

Autoboot for Cassettes 

Maxter Mind (Asseably) 

Noveaber 1983: 

Sound Dead 

Here’s Looking At You S.A.M, (Assenbly) 
Sound Beyond Sound (2 listings) 

Siaple Synthesizer 

Tag 

Deceaber 1983: 


Cay 


More Interrupting (3 listings) 
March 1984: 

Atari’s Cinderella (3 listings) 
Flash Count 

April 1984: 

Control Your Environment 
Electronic Birthday Card 

Update Disks With Note and Point 
June 1984: 

Title Saapler 

Scroll Your Way To The Top {2 BASIC and 1 Asseably) 
Use BASIC To Aniaate 

Color Finetuner (3 listings) 
Shortcuts to Success (4 Asseably) 
July 1984: 

Break Key Shortcut 

All Mixed Up 

The Olyapic Spirit 

Interrupt with ACTION! (ACTION!) 
Run Robot Run 

Cassette Lookalike (Asseably) 


August 1984: 


ANTIC’s Mode 3 (4 listings) 
Price’s Color Picture Painter 
Rotate Your Player (Asseably) 
Customising BASIC Key Functions 
Qiyepic Dash (2 listings) 

Copy Nate {BASIC and Asseably) 
October 1984: 

Cruel 1/0 

Mole Attack 

Plus Minus 

ANTIC 4/5 Editor Animator (5 listings) 
Jacks 

Diver 

Noveaber 1984: 


GRAPHICS 9 Demo 


ASCII Cursor Routine 

Cosputer Brainwashing 

Word Counting Prograe 

First Lesson in Asseably Lanquage 
Adventure Island 

Advent X-5 

Windgws (2 Asseably) 


Recall Create Your Own Cursor (Assembly) 
It’s Mere Horseplay Deceaber 1984: 
Cross Reference | Info Bits 
 Renaser Word Storage Space Saver (BASIC and Asseably) 
Septeaber 1984: Biffdrop 


Three Color Deao 


Windows Part I] (BASIC and Asseably) 
All About 1/0 (2 Asseably) 





FOoOWEREF AD REVIEW 
By Richard Taylor 


The Powerpad is a tablet which allows highly detailed graphics to be created by tracing an image onto it. The 
PowerPad system can be either cartridge or disk based although you do NOT get both with the PowerPad. The PowerPad 
is very large, it seasures 20° X 17" X15" and an active surface area of 12" X 12". The Powerpad plugs into 
controller port { and is said to work on all Atari computers including the Xk series. 


To do anything with the PowerPad you need to purchase one of the many programs avaliable. I chose the “Micro 
Illustrator” which is a drawing program for the PowerPad. Upon unpacking Micro Illustrator from its box you find:- a 
stylus, an instruction book and the Micro Illustrator cartridge. 


THE MAIN MENU 

After you have powered up the systes you are confronted by the Title page and then the Main Menu. This consists of 
ten drawing functions: Draw, Point, Line, Lines, Rays, Fill, Frame, Box, Circle, and Disk. The difference between 
Frame and Box is that Frame draws a ’wire’ frame and Box draws a solid box. The sase applies to Circle and Disk. 
The rest of the functions are self explanatory. The aenu also contains six utility commands: Erase, Storage, 
Mirror, Magnify, Scaled, and Color senu. Further down the screen there are 10 brush sizes that range from a single 
pixel to an open diagond and square. 


At the bottom of the screen the background color and three main colors are appear. There are twelve secondary or 
*checkerboard’ colors beneath this. There are three secondary menus that the user arrives at by siaply pressing the 
Erase, Storage, or Color menu on the screen. 


THE ERASE MENU:- When you press the erase “button’ the screen changes to avery siaeple self explanatory sessage: 
Touch Yes or Y to erase, anything else cancels. 


THE STORAGE MENU:- When you press the storage button the screen changes to Storage and five options on the screen, 
they are: Load Picture, Save Picture, Index Disk Pictures, Delete Disk Pictures, and Format Blank Disk. Despite 
the fact that most of the options are disk oriented the Load and Save options can also be used with cassette tape. 


THE COLOUR MENU:- This is split into three parts, On the left side of the screen are selection directions and four 
Options that you can choose from: Rainbow Color, Default colors, Restore Last Color, and Adjust Colors on Picture. 
The right side of the screen contains two vertical bars. The bar to the left (color) represents the {6 colour 
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options (hues) of the Atari computer. The bar to the right (level) represents the sixteen levels of luminence 
(brightness) of each of the colors. Across the bottos of the menu are the current main and checkerboard colors. The 
three default sain colors are Orange, Green, and Blue. The default background color is Black. 


LIMITATIONS 
A limitation is that there is no option to print the pictures you create and as I recently purchased an Atari colour 
printer this is a big disappointaent. 


Another feature that would have been useful would be the ability to insert text on the picture Screen. 


The PowerPad is capable of reading aore than one point on its surface at a time however this program does not sake 
use af this feature. 


All software that you purchase for the PowerPad comes with its own plastic overlay that clips onto the surface of 
the PowerPad. These overlays vary depending on the program being used. 


For the Micro Illustrator the overlay is a transparent grid-sheet with five buttons drawn at the top. The buttons 
are, froa left to right: Pen Down, Menu, Pen Lock, and Pen Down. The buttons are repeated on each side so that the 
prograa can be used by both left and right handed people. 


SUMMARY 
The PowerPad was a good purchase, however if you are thinking of buying one and want it demonstrated, have the 
deaonstration done on an Atari and not a Comaodore or an Apple as each prograr varies from computer to coeputer. 


Stay tuned for a review on the PowerPad prograssing Kit. 


a Te 


AN ALTERNATIVE HANDLER FOR THE 
ATARI 1020 PRINTER 


by David and Mary Lynch. 
Adapted from Page 4, Issue 13. 


(This is a handy little program that shows how you can aodify a device handler to satisfy your needs. - Roberto R.] 
One of the first ways in which you can use your printer is to list your own prograas. 


For the ATARI 1020 printer it is auch aore convenient to use the small character size in order to obtain 80 
characters per line. However, this involves having to use CTRL 5 every tise the seall characters are desired. 


Qur first atteapt, successful but cusbersome, was to write the listing file ta disk and then use a program to read 
in the file and write it to the printer, preceded by esc-ctl-S. This involved reading and writing large files - 
slow. We tried various other tacks, including esc-ctrl-S as a comment in the program and using a vertical blank 
interrupt routine to write esc-ctri-S, until we finally cage up with a workable solution. 


The problea is that when confronted with a coemand LIST"P:" to print a listing the Operating Systea first closes 
then re-opens the printer, thus setting default values and defeating any chicanery you aay have been up to. The 
solution was to define a new input handler “L:" whose only function is to print in small letters. We steal most of 
the code provided by the Operating System for the printer, “P:", but substitute our own code for the OPEN routine. 
When we set up "L:", we open the printer then pint esc-ctl-S. (Note that because °P:" and “L:" share code and 
buffers, it is dangerous to have thee OPEN at the same tise - not that I can see any reason fo doing so.) 


There are a couple of additional frills. How about being able to forget about setting uo "L:° each tiee we turn on 
the computer ? We can do this by aaking the prograsp into an AUTORUN.SYS file which is executed automatically by DOS 
on power-up. In addition, we do not want our facility ruined by pressing SYSTEM RESET and we can stop this by 
placing the address of the set up routine in RUNAD ($2E0,$2E1), which is executed when SYSTEM RESET is pressed. 


For those with an assembler, a listing of the asseably language code is provided. Save the object code as 


"D:AUTORUN.SYS". The printout is of the asseabler listing rather than the source so that the BASIC prograg may be 
sore understandable. 


The program occupies the end of page 6, $4A0 to $4FF. If you don’t mind SYSTEM RESET destroying "L:", $6DC to $4FF 


is all that needs preserving. 
b Cay 


The BASIC program does the same thing. Type in the program as listed. SAVE it as "L.BAS® and the RUN the progam with 
a DOS disk in the drive. Turn off the computer and turn it on again. If all has gone well you should now have set up 
"Ls", Try LOAD *L.BAS" then LIST"L:" and you should get a listing of the program in letters 80 characters to a line. 


(PRINT does not appear to work very well with the 1020. While you can print 40 characters per line, the special 
facilities, such as changing print size, do not work. I suspect that this is because when BASIC meets an LPRINT 
statement, it closes and opens the printer, 50 destroying control commands that you have sent it previously. 


The solution is to amend programs containing LPRINT as follows: 
(a). Precede the first LPRINT statement executed in the program by CLOSE#7:OPEN #7,8,0,"P:" 
(b). Replace all LPRINT’s by PRINT#7; 


{ REM SRSRPRSHROPERSERSSSREGREESEOEE | 1040 TRAP 1060:FOR I=1 TO 900 1140 DATA 3, 200, 169, 220, 153, 26,3, 200 
2 REM # L: PRINTER HANDLER # | 1050 READ Q:PUT #2,0:? G:NEXT | 1150 DATA 169,6,153, 26,3, 96, 234,6 

3 REM # by David and Mary Lynch = # | 1060 END 1160 DATA 219, 238, 157, 238, 166, 238 

4 REM # Reprinted froma Page & # | 1070 DATA 255,255, 160,6,255,6,165 1170 DATA 128,238, 157,238, 76, 120,238 
3 REM # Issue 13. # | 1080 DATA 12,141,182,6, 165,153,141 1180 DATA 32,159, 238, 169, 27,32, 167 


6 REM # Published by Atari Computer # | 1090 DATA 183,6,169, 181,133, 12,149 1190 DATA 238,169, 19,32, 167, 238, 169 
7 REM # Enthusiasts (N.S.W.)  # | 1100 DATA 4,133,13,56,176,3,32,184 1200 DATA 155,32, 167,238, 160, 1,96 


8 REM # June 1985 # | 1110 DATA 6,160,0,185,26,3,201,0,240 | 1210 DATA 224,2,225,2,160,6 
9 REM SHRRSRRRSSHERESERRSSEGREEESEEES | 1120 DATA 9,200, 200, 200, 192,34, 208 
1030 OPEN #2,8,0,"D: AUTORUN. SYS" 1130 DATA 242,56, 96, 169,76, 153, 26 


(npr ren ce VE RD 


10 ; SRRRRASERESERERRRESERRGERESEEEEEH {| 0280 SEC 0530 INY 

20 3# L:PRINTER HANDLER SOURCE CODE #} 0290 BCS LSETUP 0540 LDA # >LTAB 

30 ;# by David and Mary Lynch #1] 0300; 0350 STA HATABS,Y ; handler addres 
40 ;3 Reprinted from PAGE 4 # | 0310 SYSRES JSR DUMMY S 

50 34 Issue 13 # | 0320 DUMMY 0560 RTS 

60 ;# Published by Atari Computer # | 0330 ; 0570 ; 

70 3% Enthusiasts (N.5.W.) # {| 0349 3 look for free handler entry 0580 LTAB .WORD LOPEN-1 ; new open 
BO ;# June 1985 # | O350 ; 0590 WORD SEEDB ; old close 
FO sRRSRSEURESSESESRASEREUSSSEEESESES | 0360 LSETUP LDY #0 0400 WORD SEE9D ; old read 
0100 ; 0370 LOOP LDA HATABS,Y 0410 WORD SEEAG ; old write 
0110 .OPT NO EJECT 0380 CHP #0 : free entry? 0420 »WORD S$EEAO : old status 
0120 ; 0390 BEQ FREE 0630 «WORD SEE9D ; old special 
0130 t= $06A0 0400 INY 0440 JMP $EE78 3; old init 
0140 ; 0410 INY 0650 ; 

0150 HATABS = $0318 0420 INY 0460 LOPEN JSR $EE9F 

0160 DOSINI = $0C 0430 CPY #34 ; end of HATABS? | 0670 LDA #27 : escape 
0170 ; 0440 BNE LOOP 0480 ISR $EEA7 

0180 ; System Reset trap 0450 SEC ; error,no free e| 0690 LDA #19 ee 

0190 ; ntries 0700 JSR $EEA7 

0200 LINIT LDA DOSINI 0460 RTS 0710 LDA #155 ; CR 

0210 STA SYSRES+1 0470 ; 0720 JSR $EEA7 

0220 LDA DOSINI+! O480 FREE LDA #L =e: device nase 0730 LDY #1 

0230 STA SYSRES+#2 0490 STA HATABS,Y 0740 RTS 

0240 LDA # <SYSRES 0500 INY 0750 ; 

0250 STA DOSINI 0510 LDA # <LTAB 0740 = $02E0 

0260 LDA # >SYSRES 0520 STA HATABS,Y ; handler addres | 0770 »WORD LINIT 

0270 STA DOSINI+! 5 0780 END 


, 


DOCTOR 
DOS 


by barry Francis 





There are very few Atari experts in Australia, so it’s hard to find someone to turn to when you've got a prograsming 
problem. With this in mind, I’ve decided to start a “question and answer” coluan, but I can’t afford the tiee to 
write it indefinitely. If there are any Atari experts out there who feel qualified to take aver from me, then 
please let ee know. In the seantiae, if you need any help, just write to DOCTOR DOS, c/- Atari Computer Enthusiasts 
(N.S.W.), &.P.0. Box 4514, Sydney, N.S.W. 2001. Your question will be printed in INSIDE INFOQ and ay successor or | 
will do our best to provide an answer. 
trees 

Et TririINnAaTINGa SCrEEM GARBAGE 
Dear Doctor, 
I typed in Wildwest and Courting Crickets from INSIDE INFO No.ié. Both programs work perfectly, but there is soae 
"screen garbage" during initialisation. Is there a way to eliainate this by blanking the screen until the gase is 
set up? - Danny McClatchey 


Yes. The easiest way to eliminate screen garbage is to disable DNA (Direct Memory Access) early in the 
initialisation routine, then re-enable it when initialisation is coaplete. This can be done with two simple POKEs. 
To disable DMA, use POKE 559,0. To re-enable it, use POKE 559,X. Both these POKEs should be carried out after any 
GRAPHICS commands as the GRAPHICS command will itself enable DMA. The value of X in the second POKE is an 8-bit 
integer value (i.e. a nueber froa 0 to 255) which varies depending on the application. I haven’t got enough rooe to 
discuss it here, so refer to the hardware manual (there’s a copy in the library) or an article on player-aissile 
graphics for further details. If you are only using the built-in graphics aodes, then use POKE 559,34. This sets 
bits 2 and 5 to enable DMA with a standard width playfield. 


Wildwest can be cleaned up by adding two POKEs. Firstly, add POKE 559,0 to the beginning of line 140. This disables 
DMA while the subroutine at line 450 is executed. When the subroutine is finished and returns to line 140, DMNA is 
autosatically re-enabled by the GRAPHICS 0 command. Secondly, add POKE 559,0 to the beginning of line 170 or 580 (it 
doesn’t aatter which). This disables DMA while the custom display list is set up. DMA is re-enabled by the POKE 
359,46 in tine 210. . 


In Courting Crickets, Stan has resembered to disable DRA while various things are set up, but some of the POKEs are 
in the wrong place to be aost effective. To fix this, add POKE 559,0 after the GRAPHICS 0 in line 350 and delete the 
other two POKE 559’s from the same line. DMA is re-enabled by the POKE 559,42 in line 1740. There is still a brief 
flash of garbage at one point during the initialisation, but I couldn’t figure out how to get rid of this. 
teert 

SHLIF PLING FOoOuUTI NE 
Dear Doctor, 
How do I write a loop that picks a series of random numbers from a limited range such that none of the nuabers are 
repeated? I want to use it in a program to pick Lotto nuabers. - Vaughn De Vocht 


What you really need is a shuffling routine. Here is aroutine that is reasonably fast, efficient, easy to 
understand and aost importantly, every possible combination has an equal probability of occurring. It is split into 
two parts. The first part simply initialises variables and sets all the elements of the array to their initial 
(ordered) values. This only needs ta be done once at the beginning of the program. To alter the upper lisit of the 
range of nuabers, just alter the value of MAX. For example, MAX=40 to shuffle your Lotto numbers, MAX=52 to shuffle 
a deck of cards or NAX=100 to detereaine the order that questions will be asked in a 100 question trivia quiz. N 
determines how sany nuabers to choose from the set and aust be less than or equal to MAX. For example, N=6 to pick 


6 Lotto nuabers, N=5 to pick 5 cards for a single hand of poker or N=L00 ta shuffle the entire list of questions in 
the trivia quiz. 


10 GRAPHICS O:MAX=40:N=6:DIM ACMAX):FOR T=1 TO MAX:A(I)=I:NEXT I 


The second par is the shuffling routine. It can be carried out any nuaber of tiaes without re-initialising the 
array. 


20 FOR T={ TO NeJ=INT(RND(1) 8 (MAX+i~h) ) +1: TEMP=A(T):ACI)=A(3)sACJ)=TEMPSNEXT I 


This is all you need to incorporate a shuffling routine in your own prograe. If you want a deac, then add the 


A ar 


following few lines to print the shuffled nuabers (though this could also be done within the shuffling loop) and 
allow the user to go back and pick some sore nuabers. Hey presto! A full-fledged Lotto selector in just 6 lines of 


code! 


30 FOR T=! TO NsPRINT A(I)s" "ssNEXT I 
40 PRINT :PRINT :PRINT "PRESS ANY OTHER KEY TO PICK MORE NUMBERS": POKE 764,255 
50 IF PEEK(764)=255 THEN 50 
60 PRINT :6070 20 
+x388 

Cor YR TL GBHATING SorrTuAarkeE 
Dear Doctor, 
How does one go about copyrighting a prograe and also a company’s name? - Richard Taylor 


(a) The first copyright legislation in Australia was the Copyright Act of 1912 which was the same as the British 
Copyright Act of 1911. This gave copyright protection throughout Australia and the British Espire and was further 
widened when Australia joined the Berne Union. A new Copyright Act passed in 1968 introduced new features which 
allowed Australia to join the Universal Copyright Convention and therefore widen international recognition to 
include U.S.A. and U.S.S.R. ~ neither of which were in the Berne Union. 


The Copyright Act (1968-73) provided for copyright in two areas, mainly “works” and “subject aatter other than 
works®, Works were defined as “literary, drasatic, ausical or artistic work". Following the recent case between 
Apple and Computer Edge, the Full Federal Court decided on 29th May, 1984 that computer programs in source code were 
indeed “literary works” and prograas in object code were “translations" of their corresponding source codes. As 
such, both source and object code were protected by the Copyright Act. The Copyright fAmendsent Act 1984 was 
introduced into parliaaent a week after the Full Federal Court decision. This contained express reference to 
computer prograas in the definition of literary works and the definition of computer progras was itself expressed so 
a5 to include both source and object code. 


In Australia, copyright exists from the tise an idea is reduced to writing or some other esaterial fore (including 
typing of prograas directly into a coaputer’s memory). It gives the creator the sole right to reproduce, publish or 
adapt the work. This right stays with hia throughout his life and passes to his heirs fer 50 years after his death. 
The creator or his heirs can sell some or all of these rights at any tie. Note that you do not have to register a 
work to gain copyright in Australia. However, you @ay igprove your protection in other countries by registering it 
in those countries (if appropriate) and aarking it with the word “COPYRIGHT® or the copyright syabol (a small C 
within a circle), followed by your nase and the year of publication. In the case of computer prograss, I’d suggest 
putting this in your documentation, at the beginning of your source code and also having it appear on the title 
screen of your program when it is run. This at least sakes people aware that it is not in the public dowain. 


If someone infringes your copyright, you can sue for damages. 


(b) If you want to set up your own bustness, there are essentially three options open to you. Firstly, if operating 
by yourself, you can become a sole trader and use your own nase (e.g. John Smith, J. Saith or Smith) without having 
to register the nage. Seconcly, if two or more people are involved, you can form a partnership and again use your 
own names (e.g. Saith, Jones and Williamson) without having to register. However, if either type of business wishes 
to use a name other than their own (e.g. Smith’s Software or Jones and partners or Megadata), the name must be 
registered with the Corporate Affairs Commission (or its equivalent in other states). Thirdly, you can foraa 
company which aust be registered with the Corporate Affairs Commission before it can begin trading. A company only 
has to register its business name if it is different to the nase under which it is registered, 


There are many restrictions on the choice of business name. For exaaple, it cannot be similar to an existing fira, 
it aust not be misleading, it cannot use the words "iaperial", "commonwealth" or “international” and it aust not 
suggest a connection with the Crown, the Royal Family, etc. When the nase is approved, you will be issued with a 
certificate of registration which aust be prominently displayed at your place of business. 


{c) I believe this inforaation to be reasonably accurate at the time of writing, but I’a a software expert, not a 
lawyer. Nake sure you confirm anything I’ve said before taking any action. The Australian Copyright Council can 
answer questions on copyright and the Corporate Affairs Commission can answer questions on registering a business 
name. Note that you do not copyright a business nase. 
Se oe ae | 
DIISASSEMELWINGcg A BINARYW FILE 

Dear Doctor, 

I believe that once you have assembled source code, there is no way back. Is this true? If it’s not true, then can 


g car 


the Atari Asseabler Editor disassemble a binary file or is there another disasseabler that can? - Quy Bao 


No, this is not true. It is fairly easy to disassemble a binary file. In the case of the Asseabler Editor 
cartridge, you aust first load the binary file into semory using LOAD@D:FILENANE.EXT then proceed according to the 
instructions on page 38-41 of the Asseabler Editor Manual. Needless to say, you aust know the starting address of 
the binary file so you know where to start the disasseably. If you’re not sure what it is, then use the following 
BASIC program to find it for you. Just replace the filenase in line 10 with your own filenaae. 


10 TRAP SO:GRAPHICS O: OPEN #1,4,0, "D:FILENAME. EXT" 

20 GET #1,LO:GET @1,HIsIF LO<>255 AND HI<>255 THEN ? "NOT A BINARY FILE":607T0 50 
30 GET #1, LO:GET #1,HY:? "DECIMAL STARTING ADDRESS=";LO+2558H! 

40 GET B1,LO:GET #1,HI:? “DECIMAL ENDING ADDRESS=";L0+2563H1 

00 CLOSE #1:END 


There are also dozens of other disasseablers available. Virtually every assembler, machine language debugger, 
sonitor and disk editor has a disasseabler built in. You can also buy a dedicated disasseabler or type one in froma 
book or sagazine. Disasseablers have appeared in Compute! March 1981 and June 1981, Kilobaud Microcoaputing August 
1981, Antic April 1983, ANALOG #14 November/Deceaber 1983, “Machine Language for Beginners* by Richard Mansfield 
(Compute! Books) and "Beyond bases: Systems Software for Your 6502 Personal Computer" by Ken Skier (Byte Books). The 
best disasserabler on the market is "Ultra Disassembler” from Adventure International. This produces the aast 
readable code, it uses the official Atari labels for all Operating System equates and it can immediately be 
re-asseabled without having to make any changes! This is the one I use and recoasend to serious asseably language 
programaers. 
i a Se 
ATARI MODErS = iTERPITNAL  FROGRArIS 

Dear Doctor, 

Could you give me some advice on Atari cospatible modems and terminal programs. I’d specifically like to know 
whether I need to buy an 850 Interface Module to use a aodem and whether the Telelink I] cartridge is any good. - 
Nigel Delatorce 


First and foremost, you sust appreciate that there are two telecomaunications standards used throughout the western 
world. Host of the world (including Australia) uses the CCITT standard, but the Yanks have got to be different (as 
usual) and they use the Bell standard. If you’re going to buy a sodem to comsunicate with other computers within 
Australia, make sure it confores to the CCITT standard. This immediately eliminates all the modees I’ve ever seen 
advertised for the Atari in the U.S. magazines. 


There are three ways of interfacing a modes to an Atari - through the RS232 ports on the 850 Interface Module, 
directly through the serial port or through one of the joystick ports. In the first case, you can use just about any 
modea on the aarket that has an #5232 port and uses the CCITT standard, but you will probably need to make your own 
cable. In the second and third cases, the modem must be aade specifically for the Atari. Don’t buy any of the ones 
advertised in the U.S.A. because they only support the Bell standard and can’t be used to communicate within 
Australia. The Sunsoft aodea reviewed in INSIDE INFOQ No.18 is an Australian designed modem which plugs directly into 
the serial port. This looks like an excellent ~ product, but it only operates at 300 baud. I don’t know of any 


Australian modems that use the joystick ports, but there may be some made in the U.K. or Europe which you can use in 
Australia. 


As far as software goes, if your modem hooks up to the 850 Interface Module or the serial port, you can use just 
about any coasercial ter@inal program or any of the many excellent public domain terainal prograas. If your aodem 
uses the joystick ports, you are restricted to the terminal software supplied by the manufacturer of the aodea. 


Telelink I and Il only work with a aodem hooked up to the 850 Interface Module and possibly the serial port. J 
wouldn’t recommend Telelink | because it is a very “duab" program and doesn’t allow uploading and downloading of 


software. I haven’t seen Telelink II in action, but for the money, I feel you'd be better off with one of the public 
dogain progrags, 


In sumaary, I’d recommend either the Sunsoft modem (which includes software) or an 850 Interface Module, an 
Australian'deésigned and sanufactured aodem {such as Sendata, Cicada, Avtek, Dick Smith, etc.) and a public dosain 
terminal prograe (such as JTERM, AMODEM, etc.). 


POD Te wT oo Vist cALcC 
Dear Doctor, 


I would like to reconfigure the keyboard when using Visicalc so that I don’t have to hold down the control key to 
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use the cursor controls. I know that it 15 possible to reconfigure the keyboard, but Visicalc is an autoboot programs 
that is loaded by turning the computer off then on. This reverts everything to the default state cancelling any 
keyboard configuration that aight have been done. What gives ae a slight glimmer of hope is that the XL translator 
disk does something to the system then allows an apparent cold start by pressing the SELECT key. Perhaps a progras 
could be written to reconfigure the cursor control keys, then allow Visicalc to be booted by pressing the SELECT (or 
some other) key. 

{a} Is there a way to do this? 

(b) If it’s possible, could anyone out there write the software for me? I1’a useless at anything other than siaple 
BASIC and I’ve never used aachine language. 

(c) Could the plain blue lettering and background colours in Visicalc be changed at the saee tise? 

- Peter Douglas 


(a) Wow! That’s quite a tall order' I’d suggest you write to the Visicalc people before trying anything yourself. 
You CAN do it yourself, but is it worth the trouble? Let’s discuss the pros and cons. 


Firstly, you should establish whether redefining the keys is a wise move. I personally think you’re saking things 
more difficult for yourself because you will still be using the CTRL key combinations in other environments like 
word processing, progragging or just typing in a BASIC program listing out of a magazine. This brings about a 
psychological conflict as your brain tries to adapt to the different environaents. The end result is a greater 
nuaber of mistakes brought about by incorrect keystrokes. I experience this all the time when I transfer between ay 
Atari and the mainframes at work, or even between different terainals with slightly different keyboard layouts. You 
will also have to reconfigure the +, -, % and = keys which will further add to the confusion. 


The idea of configuring the keyboard, then running Visicalc in a siailar fashion to the way the XL translator works 
is an interesting one. It is certainly feasible (even on a 400/800), but you probably won’t get it to work. The 
reason is that Visicalc will disable anything that you’ve done when it does its own initialisation. You will 
therefore have to aodify Visicalc itself! 


If you’re still convinced to persue the matter, you aust establish how Visicalc sets up its keyboard routines. It 
could be doing this on a number of levels. It could redefine the keyboard matrix, use its own aaskable interrupt 
handler, use its own keyboard handler or use the inbuilt keyboard handler and sisply modify its actions depending on 
which key is pressed. The only way to find out what technique (or combination of techniques) is being used is to 
disasseable the entire progras. This requires a disasseabler capable of disassesbling directly from disk sectors. 
It is also preferable that the disasseabled source code uses the standard Atari Operating Systema equates, otherwise 
youl] never find your way around. Adventure International’s "Ultra Disasseabler” aentioned above is ideal. 
Needless to say, you’!l also need a sound knowledge of assembly language, the Atari Operating Systea and the 
structure of a boot disk. 


Once you’ve got a disassembled listing of Visicalc, you’]] need to spend days and days wading through the code 
trying to find the keyboard routines and then trying to understand how they work. This is a nightaare' You can then 
godify the routines (or more likely you’]] have to add your own, but figuring out where to put thea is another 
nightaare) and re-asseable the whole lot. Needless to say, this last operation requires an asseabler. The MAC/65 
supercartridge from 0.5.5. 15 undoubtedly the best and costs $99.95. Once it is tested and debugged, you can write 
a utility to transter your new object code to a boot disk and you’re pretty well ready to go. Sisple huh? 


But what about if Visicalc has copy protection? What about if the object code is encoded or scrambled or something? 
What about if you have a weak heart? 


(b) Is anyone prepared to follow up on question (b)? I’ve Jet you know what’s involved, but I certainly wouldn’t 
tackle it ayself unless I was being paid by the hour! 


{c) No worries. Once the program is disasseabled, you can patch in the extra 5 bytes of code to change the 
background colour and a further 5 bytes if you wish to change the luminance of the lettering. This could go 
immediately after the code to open the screen. 
seers 
WISI NGS ATARI WORD FRO cCEeESSsoR 
WITH THE Lowo FPRInNTeEF; 

Dear Doctor, | 

I have the Atari Word Processor, which is a disk-based package containing two diskettes, a data diskette and an 
extensive tutorial-type aanual. It’s brand new and has only been tested to prove it works. I want to sell it anda 
friend of mine with an B00XL, 1050 disk drive and 1020 colour printer wants to buy it. The probles is that the word 
processor is an autoboot disk and won’t load unless the systea contains an 850 Interface Module, which ay friend 


ff cay 


doesn’t have and doesn’t need and doesn’t want to buy. Mine isn’t for sale. Can anyone think up a way to get around 
this problea, such as reconfiguring the printer handler then allowing a “cold start” as described above? 
Alternatively, I could sell the disk-based word processor to someone out there who has an 9850 Interface Module ($90 
Q.N.0.) and get a siapler word processor such as AtariWriter for ay friend. Along these lines, is anyone with an 
AtariWriter willing to sell it? - Peter Douglas 


This 15 a mystery to se, because I’m not aquainted with the 1020 colour printer and I know even less about the Atari 
Word Processor than I do about Visicalc. (Incidentally, I don’t own either.) If any readers can help, please 
contact Peter on (067) 72-1183 or (067). 72-6315 or write to P.0. Box 1000, Arsidale, N.S.W. 2350, 
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"GOING FORTH: 
By Bob Vickery 


FORTH is the most powerful language available for the Atari computer but very few meabers of A.C.E. have developed 
an interest in it. This situation aay be due, in part, to a shortage of docugentation. The “Team Atari #1g-FORTH’ 
disk distributed by 4.C.E. comes with very little back-up and the standard book on FORTH describes a dialect which 
is different from fig-FORTH. I thought it would be worth-while to list some of the help available to would-be FORTH 
users, 


The nearest source of help is the Sydney Chapter of the Forth Interest Group (fig ). It meets on the second Friday 
of each aonth in Ra. L619 of the John Goodsell Building at the University of N.S.W., Kensington, and publishes a 
newsletter called “Forthwright". The group can be contacted through the secretary, Peter Tregeagie, 10 Binda Rd., 
Yowie Bay. Meabership of the original Forth Interest Group costs $US533 per annua including air-mail postage of their 
journal “Forth Digensions". The address is P.0. Box 8231, San Jose, CA 95155, U.5.A. 


The cheapest version of the language is the “Team Atari fig-FORTH" disk available from A.C.E. for $10. This systes 
adheres closely to the FORTH-79 standard with extensions to handle the special features of the Atari such as sound 
and player-aissile graphics. It has sany good things, but some deficiencies. The first of these is lack of 
documentation as mentioned before. The second is a tendency to crash or to hang up unexpectedly. A buo-free, 


well-documented version of FORTH-79 can be bought from Valpar International, 3801 East 34th Street, Suite 105, 
Tucson, Arizona 85713, U.S.A. Valpar also have 6 disks of extensions to the language including a DOS systes. 


fig has released the new FORTH-83 Standard but this has not been iaplemented on the Atari, as far as I know. 


There are two books which I would recommend to any FORTH prograsmer. Firstly, there is the "fig-FORTH Installation 
Manual" available from fig and also in the A.C.E. library. The second is “Starting Forth" by Leo Brodie which is in 
most stores selling coaputer books. The Manual has a complete description of all the essential words in the FORTH-79 
kernal and all the code needed to install it in a certain (non-Atari) 6502 machine. It is also very, very heavy 
reading and not suitable for an introduction to .the language. This is where Brodie’s book is outstanding. It takes 
the reader right from 2 2 + through to sethods for modifying the compiler in easy stages with cute illustrations. 


Unfortunately, the dialect of FORTH described by Brodie differs in quite a few respects from FORTH-79 ( and FORTH-83 
too). 


Here are some of the differences between the languages. The first of each oair of words is Brodie’s version and the 
second is the Team Atari version. 


ane as 

Brodie’s ’ ccc returns the code field address of the word ccc, whereas the Teas Atari FORTH word ’ returns 
the parameter field address. The sequence ©’ ccc CFA" will return the code field address of the word 
ccc. ’ iS immediate and can be used in a colon definition. 

7S = SPe@ 

+LOOP <> +LOOP 
In Team Atari FORTH +LOOP adds a signed increment to the index and compares it with the limit. The branch 
hack to DO is taken if the new index is less than the liait { for positive increments) or greater than the 
ligit (for negative increments), 

2- not iaplesented 

2/ not iaplesented 

2DROP not isplemented 

2DuUP not iapleaented 


20VER — not iaplemented / co Cay” 


2ROT not implemented 


2S5WAP not impleaented 
YIN = IN 
?DUP = -DUP 


PSTACK <> 2STACK 


In Team Atari FORTH this word automatically aborts if the stack is out of bounds. 


ABORT" not iapleaented 
BLANK = BLANKS 
CREATE = <BUILDS 


Team Atari FORTH uses the pair «BUILDS .. DOES> instead of CREATE ..DOES>, 


DNEGATE = DMINUS 

EXPTY not iaplemented 
EXIT = ;5 

H = DP 

NEGATE = MINUS 

NUMBER <> NUMBER 


Team Atari FORTH always converts a string to a double length.(- 32 bits ) 


deciaal point in the string is given in the User variable DPL. 


PABE = HEX 7B EMIT 
U/MOD = U/ 
VARIABLE <> VARIABLE 


nuaber. The position of the 


The Team Atari FORTH word takes an initialization value from the stack. 


WIPE = CLEAR 





WHERE’? S MWY FIle? 


After reading DiSkKussion 


in the past few INSIDE INFOs, 


By Joe Delaan 


] spent quite some hours playing with the layouts of ay 


disks. For different exotic reasons, I sometiaes needed to know on which sectors of a disk a particular file resided 
on. Doing this manually hurt ay brain, so I wrote the program below to do this job for ae. 


Just RUN it and answer with the file’s nage - you can enter it as it appears in the disk directory, or as you would 
when LOADing the file. The program works for any file that you can duplicate using DOS 2.0 ( well all the ones I’ve 


tested it on sa far }). 


This program can be used on its own or as a subroutine. One idea I’ve thought of is to change a disk dissasseabler | 
have which works on up to 300 consecutive sectors. You aust supply the Ist sector and the nuaber of sectors. As it’s 
written in BASIC, it could easily be aade sore versatile by being able to dissasseable sectors on a file basis. 


ag yD SE TEED TS EIS 


{ REM SHSSSSESRSACERRSRGEEERERSEUEETS 

2 REM # FILE SECTOR LISTER f 

3 REA # by Joe Delsan } 

4 REM # Published by Atari Computer # 

3 REM # Enthusiasts (N.S.W.) 4 

& REM # June 1985 # 

7 REA SSSSSSSSSEERRREASSSERESERE IETS? 

10 CLR : TRAP 10:POKE 82,2:POKE 1534, 10 
§:POKE 1537, 32:POKE 1538, 83:POKE 1539, 
228:POKE 1540,96:POKE 749,1:POKE 770,8 
2 

20 DIM A$(128)sPOKE 773, INT(ADR(A$} /25 
b):POKE 772, ADR(A$) -2568PEEK (773): 018 

FILES(12), TEMP$(11) 


30 TEMPS$=" *sFILE$=" 


sSECT=361:J=-1:605UB 2000 

40 BOSUB 1000: 1=0 

JO d=d+i:IF AS(1+6, I+16)=TEMPS THEN 90 

60 IF 1¢112 THEN T=1+16:6070 50 

70 IF SECT<368 THEN SECT=SECT+1:60T0 4 

0 

80? :? "FILE NOT FOUND!":? 3? :6070 3 

0 

90 2:7 "FILE FOUND, USES “sASC(AS(I+3 
p1t3))S256+ASC(AS(1+2,1+2))2" SECTORS" 
2? :SECT=ASC {AS (145, 145) ) $256+ASCI(A$(! 
+4, 1+4))} 

100 J=J84:N=L:STAT=ASC(AS(I +1, T+f))s IF 
SECT=0 OR STAT98 OR STAT(32 THEN ? : 
? "FILE DELETED, OPEN, OR HAS 0 SIZE*: 


"s? "INPUT FILENAME “::INPUT FILES] ? :? :60T0 30 





| 


110 IF SECT=0 THEN ? :? :60TO 30 

120 ? °PROGRAM SECTOR "sy" IS DISK SE 
CTOR " SECT:G0SUB 1000 

130 N=N+1:SECT=ASC(A$(126,126))-J:SECT 
=SECTR256+ASC(A$(127,127)) s60T0 110 
1000 AS(L)=" "SAS(12B)=" "sA$(2)=A0:P0 
KE 779, INT(SECT/256):POKE 778, SECT-256 
#PEEK (779)  X=USR(1536) s RETURN 

2000 IF LEN(FILE$)=0 THEN RETURN 

2010 L=0:FOR K=1 TO LEN(FILES) 

2020 IF FILES(K,K)=*." THEN L=K 

2030 NEXT K:IF LEN(FILE$)=L OR L<2 OR 
L>9 THEN RETURN 

2040 TEMPS{1 L-1)=FILES(1,L-1): TEMPS(9 
oLI)=FILES(L#1, LEN(FILES) ) RETURN 


KWH 


SOUND EFFECTS 
by Andrew Hobson 


Sound on the Atari is very siaple -it does not need complex pokes or eachine langwage subroutines as on other 
computers. All that is involved is the SOUND comeand. The SOUND command tells the computer which voice to use, the 
pitch, distortion and volume. Each SOUND command therefore aust include four nusbers to represent these four 
eleaents. 


Pitch Volume 
SOUR eee eee 
Voice Distortion 


VOICE - The Atari has four channels. It is therefore possible to play four different sound sisultaneously. The voice 
nuabers are 0,1,2 and 3. Each voice needs a separate SOUND statement to play a note. 
PITCH - This nuaber indicates the frequency of the sound you require. The number aust be between 0 and 255 - the 
higher the nusber the lower the note. e.g. 259 15 the lowest note. The range is around 3 octaves. 
DISTORTION - This tells the computer how ’pure’ the note should be (0 is a pure tone while 8 is a buzz. The 
distortion should be an even nuaber between 0 and 14). 
VOLUME - This sets the volume of the desired voice (not all the voices). Volume ranges from 0 (silent) to 15 
(loudest). Eight is the normal voluae setting. If the added volume of the different voices is greater than 32 the 
sound aay not be clear, 
To turn a sound off, you aust zero out all the voice paraseters:- 

SOUND 0,0,0,0 


SOUND EFFECTS 


To aake interesting sound effects you need to use FOR/NEXT loops. You use these just the same as in ordinary 
prograas to change the pitch. 


Other sound effects can be produced froma this program by changing the volume, distortion etc. and adding aore loops. 
Usually the distortion is not changed, just the pitch and the voluae. 


18 FOR TUNE-1 TO S&S 

2@ FOR PITCH=-60 TO @ STEP — 

3+@ SOUND @,PITCH,10,15-PITCH4/4 
4060 NEXT PITCH 

S@ SOUND @,63,8,6 

60 NEXT TUNE 


It is possible to use a FOR/NEXT loop while changing the voices. When you do this the first voice you have set will 
continue playing up to and after you set the second (When you have voice 0 playing and you then set voice 2, voice 0 
will continue playing. 


18 FOR PITCH -254 TO @ STEP —-1 
2G FOR VOTCE-@ TO 

=6@ SOUND VOICE, PITCHtHAVOTce.10,6 
460 NEXT VOICE 

7G NEXT PITCH 


To be able to play a musical piece you need to use DATA statements and the READ command to gather the different 
pitches. Along with the pitch values should be a duration value to control the length of the FOR/NEXT loop. 


40 FOR TUNE=1 To 1? 
2@ READ PITCH, TIME 
26 SOUND @,PETCH, 10,6 
40 FOR TIMEZ2=@ TO TIMEXS@:NEXxXT TINE? 
S@ SOUND &,9,8,8 
too Data Gor 

2, 91,27,914,14,9714,14,91,7, 91,1 
-81,1,72,1,64,1,60.,4,66.,27,681.2,81°2 64 
~2,72,2,81,27,91,4 ° ot ata 


I hope this will make SOUND statements clear and easy te use. Following are nine short progrags to demonstrate these 
effects on a range of topics. These can easily be merged into your own programs to add a touch of class. 
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10 FOR TUNE={ TO 10 

20 FOR VOLUME=14 TO 0 STEP -5 
30 FOR PITCH=255 TO 0 STEP -10 
40 SOUND 0,PITCH, 10, VOLUME 

30 NEXT PITCH 

60 NEXT VOLUME 

70 NEXT TUNE 


10 REM SSSTEAM ENGINESS 

20 FOR TIME=1 TO 10:NEXT TIME 
30 SOUND 0,6,8, 10 

40 FOR TIME=0 TO 20:NEXT TIME 
30 SOUND 0,.2,3,6 

60 FOR TIME=0 TO 3O:NEXT TIME 
70 GOTO 20 


10 REM &% SIREN 83 

20 FOR TUNE=1 TO 50 
30 FOR PIFCH=60 TO 40 STEP -2 
40 SOUND 0, PITCH, 10,8 

30 FOR TIME=1 TO 10:NEXT TIME 

_ 60 NEXT PITCH 

70 FOR PITCH=40 TO 60 STEP 2 

BO SOUND 0, PITCH, {0,8 

90 FOR TIME=1 TO fO:NEXT TIME 
100 NEXT PITCH 
110 WEXT TUNE 


10 REM #8 FALLING BOMB tf 
20 FOR PITCH=30 TO 200 

30 SOUND O,PITCH, 10,6 

4Q NEXT PITCH 

30 FOR PITCH=30 TO 200 

60 SOUND 0,PITCH, 0,4 

70 NEXT PITCH 


10 REM $# CANNON FIRING tt 

20 FOR TUNE=1 TO 20 

30 SOUND 0,80,0,14 

40 FOR PITCH=100 TO 1 STEP -1 
50 SOUND 0,PITCH/10,0,PITCH/14 
60 NEXT PITCH 

70 SOUND 0,0,0,0 


80 FOR TIME=1 TO RND(1)8200:NEXT TIME 
90 NEXT TUNE 


10 REM €% BIRDS CHIRPING t2 
20 FOR TUNE=1 TO 10 

30 FOR PITCH=1 TO 20 

40 SOUND 0,PITCH, 10,8 

50 NEXT PITCH 

60 NEXT TUNE 


10 REM $# WAVES &% 

20 FOR PITCH=0 TO 10 

30 SOUND 0,PITCH,8, 4 

40 FOR TIME=1 TO SOsNEXT TIME 
30 NEXT PITCH 

60 FOR PITCH=10 TO 0 STEP -1 
70 SOUND 0, PITCH, 8,4 

BO FOR TIME=1 TO 100:NEXT TIME 
90 NEXT PITCH 

100 RUN 


10 FOR VOLUME=11 TO 0 STEP -0.2 

20 FOR VOICE=0 TO 3 

30 SOUND VOICE, 120+VOICE, 10, VOLUME 
40 NEXT VOICE 

00 NEXT VOLUME 


{0 FOR TUNE=1 TO 13 

20 READ PITCH, TIME! 

30 SOUND 0,PITCH, 10,8 

40 FOR TIME=0 TO 208TINEL:NEXT TINE 
50 SOUND 0,0,0,0 

60 NEXT TUNE | 
70 DATA 60,2,72,2,60,4,60,2,72,2,60,4, 
53, 2,60, 2,64, 2,72, 2,81, 2,72, 2,64, 2 





ANTENNA ANALYSIS 


1 REM SHPSRSSERSERERERERESESES REESE 
2 REM # ANTENNA ANALYSIS 3 
3 REM # by Dennis Sampson ; 
4 REM @ Published by Atari Computer # 
3 REM # Enthusiasts (N.S.W.) 4 
6 REM # June 1985 § 
7 REM RHRSRRERREERERERRESESEEEEAEEESH 
10 DIM NS$(10)sPOKE 709, 10:POKE 710,0:? 
CHR$ (125) 
20 ? "DESIGN OF NORMAL MODE HELLICAL A 
NTENNA" 
22. 
nis 

in* 
247 * 


Adapted for ATARI 800XL by Den 
Saapson VK2DED from an article 


AMATEUR RADIO MAGAZINE by 
John F Drew VKSDI":? 

26 7? "’ NORMAL MODE’ is where the Radia 

tion pattern is at right angles to th 

e*: 

28 ? "axis {as per a rod or wire aeria 

1).":? 3? 

30 ? "Enter the Frequency in MHz “s:IN 

PUT Fi 


By Dennis Sampson 


32 Wi=299792/F1 


‘34 W2=SOR(WL) 


36 W3=W2*5 

4) ? "What is the height of winding(aa 
) "ssINPUT Ht 

42 H2=L6$HitHt 

50 ? “What is the smallest diameter of 
the rod(ma) "s:INPUT Dt 

52 ? “What is the largest diameter for 
the rod(am) “s;:INPUT D2 

34 D3=(Di+02) /2 

36 D4=208D39D 3803 

08 Al=(W3/H2) -W2 

60 A2=A1/D4 

62 NI=INT(AZ*0. 4410040.5) /100 

64 PL=INT(LOSNLE100+0.5)/100:PS=INTINE 
$3. L41b8H18D3/1008100+0.5) /100 

66 Pa=INT(NISHI9100+0.5) /100 

68 ? "OUTPUT ON SCREEN OR PRINTER (S o 

r P) “ss INPUT N$ 

70 IF N${1,t)="S" THEN N$="E:":60T0 80 

72 IF N$(1,1)="P" THEN NS="P:":60T0 80 

74 BOTO 68 


80 OPEN #4,8,0,N$ 

82 ? #4:"Your design criteria are:":? 

#4:"Frequency (MHz) “33? #4:F1! 

B4 ? #4s"Height of winding (mm) = °3:? 
#4:H) 

84 7 $4:"Miniaua diaseter of rod(aa) = 
her? #4:Di 

88 ? #4:"Maxiaum diameter of rod(aa) = 
"229 $4202 | 

90 7 84:"Use wire gauge 14 to 24 SW6" 

92 7 #4 

947 #4;"Turns per amis "s:? $4;N1 

96 7 #4 

98 7? $4:"Turns per ca is "3:7? 84;P1 
100 ? #4 

102 7 #4:"Total nuaber of turns is °3: 

? $4;P4 

104 ? #4 

106 ? #4: "Length of wire in METRES is 
ar? $4:P3 

108 ? #4 

110 ? #4:"So there it is...Now go and 

build that ’Super Stick’! !" 
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SMART SHEET 
by Ken Shiu 


Saartsheet is a spreadsheet calculator which is extremely handy for financial forecasting, budgeting or any 
calculations that involve sany variables. NOTE:- Due to its need for two buffers, Smartsheet will only work on a 32K 
cassette or 48K disk system a5 a ainiaua. 


The on-screen worksheet is divided up into cells or grid co-ordinates, arranged {5 coluans across (A-@) and 40 rows 
down. Examples are:- Al, O15, F32, etc. Due to the cell format (total of 600 cells) it is only possible to display a 
portion of the worksheet on the screen, so in order to view different areas of the worksheet, the screen acts as a 
scrolling window over the worksheet. 


To atteapt to explain how to operate a spreadsheet in a few pages is no easy task. Those already familiar with 
spreadsheets (e.g. VISICALC, SYNCALC), should feel at home since Seartsheet is basically styled after VISICALC. To 
newcoavers, I hope the following will be enough to get you started. 


When Saartsheet is run, the screen is divided into two sections. The upper blue screen is the input window, which 
displays different menus, input prompts, error messages and the current cell co-ordinate. Below, is the grey 
worksheet screen, the window to the rest of the sheet. The black inverse bar is the cursor and is controlled by the 
noraal cursor control keys. Its initial position is cell, Al. 


Saartsheet recognises three cell types: Labels, Values or Formulas. Since Smartsheet only involves itself with 
nuaber calculations, labels are for the users’ benefit, similar to REM’s in BASIC. They are usually placed in the 
coluan left of a value, to identify it. e.g., SALES, COST, PROFIT, etc. Labels are exactly like the list of itess on 
a shopping list. To enter a label, position the cursor and type in the label, if the label is too long, the cursor 
will autogatically be forwarded to the next coluan, 


Values are nusbers, you input for the worksheet calculations to function properly. Values say take any fore 
~positive, negative, decimal, etc. The use of values are similar to the prices next to items on a shopping list. 
Values are inputed by typing nuabers directly into the cell. When the cursor is aoved away, the value is moved to 
the right to allign the deciaal places. 


By pressing OPTION, foraulas can by isputed into the current cell or answers to siaple equations can be found. 
NOTE:- Values are necessary in a worksheet for foraula to function at all. Smartsheet gathers its input from cells 
nominated within a forsula and displays the result after all calculations are complete. After pressing OPTION, 
"Foraula" appears on the status line and on the input line you are asked whether the first nuaber in the foraula is 
to be a cell location or a nueber. The power of formulas in Seartsheet, is its ability te access values fros other 


cells. i.e., foraula aay calculate a PROFIT figure, and therefore will access the values you inputed for SALES and 
COST and subtract thea. 


Next the desired operation has to be inputed- addition, subtraction, aultiplication, division or exponent (power 
of). Smartsheet is lisited to one operation per foraula. After entering the 2nd nuaber as a cell or nuaber the full 
equation will be seen onthe sheet. If nocells have been accessed, the formulas will remain until they are 
calculated after pressing START. 


A subset of the formula, is the SUM function, which is accessed by typing a colon (:). The SUM function allows you 
to total values between one cell and another in a particular row or coluan. After typing a colon, the input line 
asks "FROM CELL:?°, here you should enter the cell where the totalling will begin. e.g. Al. Your input will be 
registeredin the brackets in the status line. Input the cell, where the totalling will end, when "TQ CELL:?" 


appears. €.g. A9. The input line will be cleared, and when you @ove the cursor off the formula cell, your Froe and 
To cells will be shown. e.g. 2AlsA9 


Once you have finished structuring your worksheet, complete with labels, values and formulas, press START to 
calculate the worksheet. The message ‘Calculating...’ will appear while Smartsheet is computing answers. Calculating 
tiae depends on the nuaber of formulas within the worksheet. When Smartsheet has finished, the screen will 
teaporarily clear and the final worksheet will be seen with all foreaulas replaced with the results. 


Saartsheet also has an optional menu for aid while developing a worksheet. The menu és accessed by pressing SELECT. 
The aenu ’6 L E § PH will appear on the status line. Press the corresponding key to obtain these functions. 


6 - Global Format: Selects how values are to be formatted when inputed. Choose from Dollar, Normal and Integer 
formatting. Dollar will automatically change your inputed value to dollar and cent format. Noraal will leave your 
value untouched, while Integer will round your input to the next whole nusber. 


lb Cay” 


{ - Load Worksheet: Loads a previously saved worksheet froma disk or cassette. Press Dor C to select Disk or 
Cassette respectively. If using cassette follow the same procedure as loading BASIC programs. If using disk, you may 
either:- 

1. Press the bar to cycle through the Seartsheet workfiles on your disk and press RETURN to load the file displayed 
in the input window. 

2. Input a filename directly on the input line and press RETURN to load it. 


§ - Save Worksheet: Saves current worksheet in seaory to either disk or cassette. Press Dor C to select Disk or 
Cassette to save on respectively. NOTE:- Smartsheet saves the whole sheet, so cassette owners sake sure you have 
about 50 counter spaces on the cassette and be prepared to wait during saving and loading tises' Disk owners have 
two choices (sae procedure as Load function):- 

1. Press the space bar to cycle throughthe Saartsheet files on your disk and press RETURN to update or save over 
the file displayed in the input window. 

2. Input a filename (8 letter lisit) directly on the input line and press RETURN to save it. NOTE:- Saartsheet uses 
*,§5’ as an extender on its saved worksheets to identify thea. 


E - Erase Worksheet: Clears the current worksheet from semory. The progras will re-ask whether you wish to erase the 
current worksheet in seaory. Type Y to erase, or any other key to return to the worksheet. If you type Y then the 
screen will teaporarily clear and a clean worksheet will appear. 


P - Print Worksheet: Prints the current worksheet to a printer. Make sure your printer is ON LINE'! First you will 
be asked to input the cell at the lower right corner of your worksheet (in order to define the bottos and rightaost 
coluan). After entering the cell co-ordinate, you aay imbed printer control codes at the beginning of each row in 
the worksheet. Type Y to iabed control codes e.9. double width for headings. If you elect not to use printer codes, 
press RETURN to begin printing. If you type Y for printer codes input the row nuaber to iabed the code. NOTE:- The 
program will send control code before printing the row. Next, type the code in and follow the sase procedure to 
input acre codes. When you have finished press RETURN ta print the worksheet. 


H - Home Cursor: Returns the cursor to cell Al. When you are aoving around the far extremes of the worksheet it is 
handy to use this function instead of repeatedly using the cursor keys. 


? - Help Screen: Calling up this screen lists all the aain keys and functions of Saartsheet. 


That about wraps up the features of Smartsheet. If you prefer to have the cursor aove without having to use the 


CONTROL and arrow keys simultaneously, just change the value equal to K in the lines 65,70,75 and 80 to 61,45,43 and 
42 respectively. 


EXAMPLE WORKSHEET 

An actual exaaple would be better explain the basics behind a worksheet or teaplate’, ala the two sample screens. 
Screen 1 shows a teaplate in its raw state with all formulas being uncalculated. All headings and iter nases are 
exaaple of labels. NOTE:- Any character including nuabers say be made into a label by typing an apostrophe before 
entering the label.e.g. the line of sinus signs beneath the heading. 


The price of the items are all values and have been Dollar foraatted. The format has been changed to ’Noraal’ 
sid-way in creation to prevent quantity values to be in dollar and cent foraat. 


In the D coluan, forsulas are present. In cel] Dé, the value of cell B& (price of chicken) will be aultiplied by 
cell C& (quantity of chicken). The result of this foraula will be shown after calculation. The same applies to cell 
Di8, where the itea total (D15) is subtracted from the available cash (D3). 


Cell DIS (item total) is using the SUM function. Upon calculation, Seartsheet will add all values from cell Dé to 
Did. NOTE:- Smartsheet calculates all foraulas and sums from left to right, top to bottom on the worksheet. 


When START is pressed, Smartsheet will pause to calculate and the result will appear as in Screen 2, where al} 
foreulas in the D coluan have been solved and replaced by a nusber. From here the user may experiment with differant 
cash, price or quantity values to view the final outcome on Mrs Jones’ purse. AS can be seen in Screen 2, Mrs. gones 
will have trouble paying the bill with only thirty dollars. 


Hopefully, I have made the versatility and applications of spreadsheet aore appreciable. The spreadsheet is by tar 
the greatest tool for financial planning. It can definitely save a lot of considerable tise and effort. Smartsheet 
is by no aeans as powerful as commercial spreadsheets, but it does help to fill the business software gap that Atari 
owners have been crying out for. I hope that Smartsheet has shown just how auch an Atari can help in paying itself 
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off, plus sore. So to all you crash-hot (gage?) programeers get cracking! INSIDE INFO would Jike to see you strut 
your stuff! 


SCREEN 1 


SCREEN 2 








PRICE 
3.33 
1.893 
1.89 
2.39 
8.65 
4.99 
8.89 
8.85 
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ATASCII ATASCII Necessary 

Geaber Character Keystrokes 

cans ce) ? CTRL , euné (176) d 
Cuns (10) rN CTRL J cuné (1277) > 
Cur$ (15) s CTRL 0 curs (138) q 
cunt (23) + CTRL WN cuné (i141) g 
cunt (24) fe CTRL x cunt (142) o 
Cun$ (27) & ESC £€5¢C curs (156) “3 
cunt (20) ¢ est crm - cunt (157) 8 
Curt (3a) ¢ ESC CTRL + euns (253) | 
Cuns (125) % ES¢ SHIFT < 











ESC BACK 5 

ESC TAS 

INVERSE CTRL J 
INVERSE CIRL M 
INVERSE CTRL NM 
ESC SHIFT BACK § 
ESC SHIFT > 

ESC CFRL 2 


EL I Sg I BIE I a aS EEF ESR NE eS 


i REN ee 
2 REM & SMART SHEET 
3 REM tt by Ken Shi 


4 REM 8 Published by Atari Computer 


5S REM Enthusiasts (N.5..3 
& REM 23 June 1985 
7 REM 





10 DIM OUTS (4800) , INS (4808) , 59 (600) , DL 

1$(€28) , VS (86), H$ (15) ,HC4), CELLS(3),C$¢ 

8), AS C11), FIS(14) , DIS (28) , PRS (120) 

45 GRAPHICS @:POKE 559,8:0PEN 82,4,8," 

K: SPOKE 752,1:POKE 719,127:POKE 769,8 
SPOKE 712,56:POKE 82,6 

2@ DL=PEEK (568) tPEEK (561)%256:POKE DLt 

7,130: DLTS="H WOO, gh fier Onine": a=aD 

RCDLIS) DIM CL$ (8) 

25 BoINT(A/256) :C=A-B¥256:POKE 512,C:P 

OKE S13,B:POKE 54286,192:605UB 2000 

rt em SMARTSHEET - Version 1.@ by | 

COMETS «STATUS: "; :POKE 85, 31:7 “CELL 
CELLS 

35 7" INPUT :'':? ‘a 

aaa 

40 FOR TrY TO Y+36 STEP 2:2 "Qs 0S C1, 

TEL WEXT Ti? “MOS US CT, THL) 5 : POSITION 
4,4:7 ¢$ 

45 FOR T=1 TO 4:POSITION HCT), 3:7? HSCT 
»TIIMEXT T:POKE 764,855:POKE 559,34 

46 IF FL THEN RETURN 

S@ TRAP SO:POKE 53774,64:POKE 16,64; IF 


PEEK (764) (>25S THEN 60 
34 If PEEK(CSI2Z799=-6 THEN POKE 33766, 1 
O:605U8 966;685e8 S60 

56 IF PEEK(S32799-6 THEN POKE 53768,58 
:GOSUB 968:605UB 1266 

O97 IF PEEK(532799-3 THEM POKE 53768,15 
6:G050B 960:605U8 1068 

58 GOTO 58 

66 GET #2,K 

65 IF K=29 THEN GOSUB 206: Y-Y¥t1:GO0SLB 
168 

76 IF K=28 THEN GOSUB 200: Y-Y-1:60SUB 
188 

75 IF K-38 THEN GOSUB 206: X-X-1:G0SUB 
158 
6@ IF K-31 THEN GOSUB 260: X-K+1: 6058 
158 

B5 IF (K>47 AND K{S8) OR K=45 OR K=43 
THEN GOSUB 986 

9@ IF €X)64 AND K{123) OR K=34 THEN GO 
SUB 228 

92 IF K-58 THEN GOSUB 880 

95 POKE 764,255:POKE 782,64:G0T0 58 
166 IF ¥)40 THEN Y-=40:FOR T=1 TO 10:P0 
KE 53761,168: NEXT T:POKE 53761, 168:605 
UB L35:RETURR 

165 IF Y<1 THEN Y=1:FOR T=1 TO 10:POKE 


{LEW CCELL$) F19=STRS CY) :POSITION 36,1:7? 
Hees eee" CELLS: VI-¥ 

115 CPICH-L) MOF CLZONCY-LIFLIIF ¥1>28 

AND K=29 THEN Yi-26 

116 IF Yi>-YMIN AND Y(=YMAX THEM Yi-260 

-(26-CY- CYMIN-1)9) 

117 If Y<YMIN THEN Yi-1 

120 IF Y>YMAK THEN YMAX-YMAK+1: YMIM-YM 

INFi: POSITION 8,4:7 "EP: POSITION 9,23: 

> ‘Ue 0S CY*2-1, YH2) OUTS CCP, CPH31); 

125 IF ¥<(YMIN THEN YMIN-YMIW-L: YMAX-YM 

AX-L:POSITION 6,4:7 ‘€3': POSITION 6,4:7 
E'S (¥%2-1, Y¥2) OUTS ICP, CP+3L); 

135 POSITION HCX1)-3,ViItI: FOR F-CP TO 

CP4+7: C$ CT-CPHL, T-CP+13-CHRS (ASC COTS CT 
219341283: NEXT T 

148 ? C$; ;:POSITION 

=5$¢CT,T):2F ASH Ai" 
(CP, CP+7) 

144 IF A$="2" THEN 

P+7) 

145 If AS=" " THEW 7? * 

on 

146 IF AS="3" THEN 
,CPt7) 

148 RETURN 

158 If K)15 THEN H-15:FOR T=t TO 10:P0 


BL: T=1L5H*CY-1)3 4K: ASF 
THEN 7 “Label: ';: Im$ 


7? "Valuer"; INS CCP,C 


? "Formula: ": INS (CP 


53761, 168: NEXT Ti POKE 53761, 16@:GOSUB/ KE 53761,166: NEXT T:POKE 53761, 160:605 


135 : RETURN 


US 175: RETURN 


11@ CELLS=CHRS CASC CHS (HK, K)9-126):CELL$[ 15S IF XC1 THEM X=1:FOR T-1 TO 10:POKE 


/A 


B= 


53761, 168: NEXT T:POKE 53761, 160: G05UB | 282 IF K=68 THEN GL=Z:GOSUB 295;RETURN 


135:RETURN 
168 CELLS=CHRS (ASC CHS (X,K) 9-128) : CELLS 
(LEM(CELLS) 419 =STRS CY) :POSITION 36, 1:7 
€€6; CELLS: HIZX 
165 CP=(X-1) 8+ (120% (Y-1)) +4 
167 IF XL>=KMIN AND KiC=XMAX THEN KizK 
-(HMIN-1) :GOTO 196 
176 IF KICHMIN THEN X1=1:MMINZXMIN-1: X 
MAX=KMAX-1 
471 IF Xi>XMAX THEN M1=4:NMAX=KMAK#L:X 
MIN=XMIN+1 
172 G=O:FOR T=XMAX-3 TO HMAK:G=G#1:P05 
ITION H(G),3:? H$CT,T)INEXT T:6=8 
173 G=O:T5= CHMIN~1) #84 (120% CYMIN-1)) #4 
FOR T=TS TO 1542280 STEP 120:G=Gt1 
174 POSITION 4,G43:? OUTSCT, T4319; :NEX 
TT 
19@ POSITION H(KLI-3,Yit3:FOR T=CP TO 
CP+7: C5 (T-CP+i, T-CP+1)=CHRS (ASC COUTS CT 
,1)24128) NEXT T 
192 7 C$; :POSITION 8,1: T=15*CY-1) +H: AS 
=5$(T, TIF AS" THEN ? “Labed:"; INS 
(CP, CP+7) 
194 IF A$="2" THEN ? “"VYalues";INS(CP,C 
p+7) 
196 IF AS=" " THEN ? # 

aa 
197 IF AS="3" THEN ? “Formula:"; INS (CP 
,CP+7) 
196 RETURN 
208 POSITION HCHL12-J3, 143; CP=(K~1) 48+ ( 
120% (Y~1)) 44:7 OUTS CCP, CP+7); RETURN 
205 POSITION 81:7 " 

“RETURN 

210 POSITION 8,2:7 © 

“SRETURN 
22@ POSITION 8,1:7 “Label'':5$ (15% (Y-1) 
#K, 15H CY-1) #K) S90 THO CP= CH 1) KB + (120 
HCY-1)) 44 
222 C$="QMMMMMNN’ : OUTS (CP, CP47)=CLS:IN 
$(CP,CP+79=CL$ 
223 IF K=34 THEN T=-1:G0T0 235 
225 POSITION 84+T,2:7 CHRSCK): OUTS (CPFT 
»CPATIXCHRS (KI CS CTHL, TL) CHRS (K4128) 
226 INS (CP+T, CP+T) =CHRS (K) 
23@ POSITION H(Hi)-3, ¥it3:? CS; 
235 GET #2, K:IF K=i55 THEN GOSUB 210:R 
ETURN 
236 IF K>27 AND K<32 THEN GOSUB 210:P0 
P :G0TO 65 
238 T=TH1:IF 1>7 AND KQ126 THEN 295 
249 IF K=126 AND T=8 THEN T=-1:C9="R 
MEME: CUTS CCP, cP+7)=" “SINS COP 
,CP+7)=" “:GO5UB 210:G0TO 238 
241 IF K=126 THEN T=T-1:IF T<@ THEN T= 
a 
242 IF K=126 THEN OUTS(CP+T, CP4T)=" ": 
COCTHL, THAD SMS INS CCP4T,CPAT) =" POS 
ITIOM B4T,2:7 " “:T=T-1:60T0 230 
245 IF (K(32 OR K)422) THEN 235 
258 GOTO 225 
268 POSITION 
liar’; 
265 GET #2,X 
276 IF K=27 THEN GOSUB 2@5:RETURN 
275 IF K=78 THEN GL=@:GOSUB 205:RETURN 


ous 
é 


8,1:7 “Global:[jore Hint [jo 


786 IF K=73 THEN GL=1:G05UB 285: RETURN 


285 7 “Uf':G0TO 265 

796 FOR T=1 TO 200: NEXT TS RETURN 

295 GOSUB Z1G: POP :G=KiK=IL:GO5UB 268: 
RoK+1:GOSUB 1S0:K=G:POP : GOTO 6&5 

380 7 “Gisk Bassette"; 

3@5 GET #2,K 

316 IF K-27 THEN GOSUB 2865:PO0P :G0TO 5 
iS) 

315 IF K-67 THEN FIS="C:":GOSUB 205;:RE 
TURN 


326 IF K()68 THEN ? '43";:G0TO 365 


$21 POSITION 13,1:7 “Input Filename" 
322 GET B2,K:1F K-32 THEN 346 

325 IF K<{65 OR K29G THEN ? '4}";:G0TO 3 
22 

$27 T=1:GOTO 335 

336 GET 82,K:1F K=126 THEN T=i:AS=CLS: 
POSITION 8,2:7 A$:GOTO 322 

S31 IF K=155 THEN 338 

332 IF (K4(48 OR KD9O) OR (KISH AND K(6 
5) THEN ? "Gf"; :GOTO 338 

335 POSITION &t(T-1),2:7 CHRSCKI:ASIT, 
TI=CHRS (KS ToTti: IF 128 THEM T=8 

337 GOTO 336 

338 FOR T=1 TO LENCAS): IF ASCT, T=" © 
THEM G=LEN (CAS) AS CTO =°""s T=6 

339 NEXT TiFISi"Di "3 AS CLEN(CAS) 192.55 
“SFIS CLEMC(FIS)+13-A$:GOSUB 205:G05UB 2 
1O:CLOSE Si: RETURN 

340 TRAP 2168: OPEN 81,6,6,"D5#.55": TRA 
P 336 

344 INPUT Ri; DIS: POKE 54266,192:1F LEN 
(DI1$)<i7 THEN 396 

345 POSITION 8,2:7 "FILE: ";01$(3, 10) 
346 GET H2,K51F K-155 THEW AS=DISC3,16 
2:GOTO 338 

347 IF K=27 THEN GOSUB 216:POP : RETURN 


350 IF K=32 THEN 344 

355 GOTO 346 

398 POSITION 8,2:2 “(NO MORE SMARTSHEE 

T FILES":CLOSE #4:FOR T=i TO 300: NEXT 

T 

395 GOSUB 218:G0SUB 205:TRAP 46000:POP 
s RETURN 

400 POSITION 8,1:7 “Load:";;G0SUB 3@@ 

485 TRAP 2100:0PEN 11,4,128,FIS:TRAP 4 

20:POSITION 9,4:7 “Loading... ."j;A$:1=7 

416 A=ADRCINS) :£=4800:G05U8 570:0UTS=I 

wS 

415 AZADR(S5):L=600:G05UB S7@:CLOSE #6 

/A6:POKE 54286,192 

420 POKE 559,6:G05UB 205: TRAP 496000:60 

5UB 202@:FL=1:GO0SUB 3@:FL=@:POKE 559,86 

425 GiO:T5=(KMIN-£) 48+ CL20%(YMIN-1)) +4 
:FOR T=15 TO 1542280 STEP £20:G=Gti 

430 POSITION 4,G43:7 OUTSCT, T4313 5: NER 

TT 

435 POSITION 4,4:FOR T=15S TO 15+7:C5(T 

-1544, T-T5+1) <CHRS (ASC COUTS (T, 129 4128) 
tWEXT T:? C5; :POKE 559,34: RETURN 

450 POSITION 8,1:7 "Save:";:GOSUB 300 

452 TRAP 2106:0PEN 11,8,228,FI$:POSITI 

ON 9,1:7 “Writing... “;AS:T=11 

455 AZADRC{INS) :L=4800:G05UB 576 

458 A=ADR(S$) :L=600:GO5UB S76:CLOSE HG 

/16:POKE 54286, 192 

460 GOSUB 265: TRAP 48006:RETURN 


[4 


566 POSITION 6,1:?7 “Menu: GL S EPH 
mag 
965 
918 
912 
544 
916 
516 
326 
922 
924 
545 
556 


555 GET H2,K 

56@ IF K=69 THEN POKE 559,6:G05UB 2006 
:POP :GOTO 38 

565 GOSUB 2865: RETURN 

570 Gx16:CB=832+G:POKE CBt2,T:HI=INT(A 

/256) :LO=A-HIRZ56:POKE CBt4,L0:POKE CB 

+5,HI 

572 HIZINT(L/256) :LO=L-256%HI:POKE CBt 

8, LO:POKE CB+9, HI: I-USR CAOR C"hhhad VG"? 
6) 

575 RETURN 

588 GOTO 428 

600 POSITION 8,1:7 “Print: Lower Cerne 

r?"sPOSITION 6,2: T=4: AS" 

685 GET #2,K:IF K=27 THEN GOSUB 285:RE 
TURN 

667 IF K{65 OR K)79 THEN ? "{j"";: GOTO 6 

05 

610 7 CHRS(KI; A507, TY=CHRS CK) STHT4L 
615 GET 82,K:IF K(48 OR K)S7 AND K()12 
6 AND K(}155 THEN ? “Uf';:G0TO 615 

620 IF Tx=2 AMD K-48 THEN ? ‘{}';: GOTO 6 
15 

625 IF K=126 THEM POSITION 8,2:7 "  " 
:GOTO 600 

636 IF K=i55 AND T)1 THEN 645 

635 IF T=4 THEN ? "UF';:GOTO 615 

640 GOTO 618 

645 IF VALCAS(2))>40 THEN 7 ‘Oj: G0SuB 
216:G0TO 660 

650 DIS=AS:GOSUB 210:POSITION 6,1:7? "PF 
rinter Codes? C¥/N)"; 

655 GET #2,K:IF K=78 THEN 785 

660 IF K(>89 THEN ? "“{¥*;:GOTO 659 

662 TRAP 662:G05UB 210:POSITION 8,4:7 
“Enter Line Number “POSITION 6,2: 
INPUT L 

665 IF L<i OR L946 THEN 7? "O¥":GOTO 662 
667 AS=PRS(L¥3-2,L%3): POSITION 14, 1:7 
"Printer Codes” 

678 POSITION 8,2:7 “Line ";L3" CE"; A$e 
L,L2sUEMASCZ, Z2"EMASCTD Ds dd; 
0) fest | 

675 GET #2,K:IF K=155 THEN 696 

680 IF K=126 THEN 670 

682 IF T)3 THEN ? ‘SP*:GOTO 675 

685 2 “EVs CHRS(K); AS (CT, T)=CHRS (CK) THT 
41:60T0 675 

698 PRS(L¥I-2,L¥3)=AS:GOSUB 210: POSITI 
ON 14,1:7 “More Codes? (¥/N)": 

692 GET H2,K:IF K=89 THEN 662 

695 IF K<)78 THEM ? “OP's :GOTO 692 

700 TRAP 40008 

705 G=VAL (OI$ (292 :AS=DIS(1,1):FOR Toi 
TO £5:IF ASCCHS(T, 12)-128-=ASC (AS) THEN 
L=1#6:T=15 


GET #2,K 
IF K-71 
IF K-76 
IF K=83 
IF K=69 
IF K-88 
IF K=27 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN GOSUB 285:RETURN 

IF K=72 THEN 58@ 

If Kx=63 OR K=47 THEN 1586 

2 “F's 60TO 5@5 

POSITION 8,1:? “Erase: Sure? CY/M) 


268 
466 
458 
556 
668 


7109 NEXT T:GOSUB 219:605U8 285 

728 TRAP Z216@:0PENM 81,8,6,"P:":POSITIO 
N8,1:?7 "Press RETURN to print" 

725 GET #2,K:1IF KO15S5 THEN GOSUB 216: 
GOSUB 205: RETURN 


736 LI=1:FOR T=1 TO GsAS=PRS CTHI-2, THI 
) 

735 FOR Z=1 TO S:1F AStZ,Z)=" “ THEN NW 
EXT Z:GOTO 748 

736 7 M1; AS(Z,Z25:MEXT Z 

740 7 BL; OUTSCLA,L) SL -Lt12@;Li=Lit+120: 


MEXT T: CLOSE #1 
750 GOSUB 205:G05UB 219:POKE 54286,192 
: RETURN 

COO SSCASHCY-£94K, ISHCY-L94KIN TS Tx: 
CPx (K-1) 48+ (120% (Y-1)) 44: POSITION 8,1: 
7 "Sue:( - 9" 

805 POSITION 8,2:? “From Cell: 
INPUT Ad 

$10 IF LENCAS)>3 OR LER(AS)(2 THEN ? " 
GP's GOTO 8@5 


44q"'; 


812 IF a50(AS(1,192465 OR ASCCASCI, 19) 
79 THEN 7 “S0F's:G0T0 885 

$14 IF VAL(AS(292<1 OR VAL(AS(2)))40 T 
WEN ? "TF"; :G0TO 885 

$18 POSITION 43,1:7 AS 

$20 POSITION 8,2:7 "To Cell : 444; 


sIMPUT DIS 

O22 IF LEMC(DIS)>3 OR LEN(D1S)<2 THEN ? 
TP": :GOTO 828 

924 IF ASCCDIS(1, 199465 OR ASCCDIS(1,1 
23>79 THEM 7 ‘O}"::GOTO 828 

826 IF VAL CDIS(2)341 OR YVALCDI5(2)99>40 
THEN 7 “OP's GOTO 820 

$27 IF ASCL, 190675 ¢1,1) AND AS(294>DI 

$(2)} THEN POSITION 8,2:7 ‘“tXells must 

be linear!":G05UB 298:G05U8 218:G0T0 6 

ee 

828 POSITION 17,1:7 OFS 

SIO FISA AS CLEM CAS) F190: "5 AS CLEM CA 
$d 42) —DIS: FISCLENCFIS) t1)-AS$ 

O35 IF LENCFI5)<&8 THEN FIS(LENCFIS) +4) 

tt a5 

940 OUTS(CP,CP+7)-=FIS: INSCCP, CP+7)-F1$ 
8350 GOSUB 216:60508 2659: RETURN 

90@ SSCISHCY-L4H, ISHCY-LI 4K) "2": 7x8: 

CP=CX-1) ¥BF C1204 CY-1) 941: POSITION 8,1: 

7? "Yalue:": INS(CP,CP+7):CS—' 
902 G=8:GOSUB 216; INS (CP, CP+7)-CLS: OUT 
$(CP,CP+7)-CLS:IF Kx=126 THEN Tx=-1:60T0 
$16 

905 POSITION 847,2:7 CHRS{KI:C5(T+1, T+ 

LI=CHRS (CK4128) INS (CP+T, CP+TI-CHRS (CK): 

GUTS CCP4+T CPFTI—-CHRS (CK) 

91@ POSITION HCK)-3,¥+3:7 C5; 

920 GET AZ, K:T=TtL: IF K=155 OR (K>27 A 

RO K(32) THEN GOSUB 210:GOTO 948 

922 IF T)7 THEN 7? ‘“¥': :GOTO 320 

926 IF K=126 THEN 990 

3286 IF (K)47 AND K(S8) THEM 905 

93@ IF K-46 AND Gx-1 THEN 935 

932 IF K-46 THEN G-1:G0TO 905 

935 7 ‘H's :G0TO 9764 

940 IF K=155 AND WOT*T THEN RETURN 

5941 IF NOT T THEN POP :GOTO 65 

942 TRAP SSS: A-VALCINS(CP,CP4+7)):IF GL 

=@ THEN AS=5TRS(A):G0TO 948 

$43 IF GL=2 THEN 945 

944 A-INYT (A40.5) :AS=STRS (A) LOS-LEN (A$ 

):G0TO 948 


945 IF A=INTCAD THEN AS=STRS (ADS ASILEN 
CASPF19=", Ga" GOTO 948 

946 IF INTCA*LBI=ARLO THEN AS=STRSCA): 
AS(LENCAS) 41)="8" GOTO 948 

947 ATINT (100048, 59/108: AS=STRS CA) 
948 LI8-LENCAS) : OUTS (CP, CP+L)-CLS$: OUTS 
CCPtL ,CP+72-AS INS CCP, CPH7)-OUTSICP, CP 
+77: TRAP 40088 

958 IF K-i55 THEN RETURN 

952 POP :G0TO 65 

955 7? “OP; :K=126:60T0 908 

966 FOR L=1 TO 1@:POKE 53761,175: NEXT 
L:POKE 53761,166:POKE 53768, 268:RETURN 


1686 T-O:CP=CK-L) MSF CLZGNCY-LIIFL: POST 
TION 8,1:7 “Formuta:"s INS (CP, CP+7): 6-6 
:0-=6:Z-1 

1604 POSITION 8,2:7 “ist Weo.:@ell or 0 
umber"; :GET 82,K:IF K-27 THEN GOSUB 24 
@:G05UB8 Z85:RETURN 

1005 INS(CP,CP4+7)-CLS:IF K-67 THEN Gri 
;GOS5UB 1626:607T0 1638 

1606 IF K{)78 THEN 7 '%f':;:G0TO 1684 
1667 GOSUB 1008:L-A: GOTO 1836 

1808 TRAP 1848:G0SUB Z21G:POSITION 6,2: 
7 “Enter Wo.:"sSs INPUT AS:IF LEN(AS)>4 
THEN 7 "43"; ;G0TO 1608 

1069 POSITION 16#7,1:7 AS!:K-=LEN(AS)-1: 
A-VALCAS):IF G OR Z THEM IMS CCPHT,CPtT 
#KI=ASSTIT4#K41: RETURN 

16108 IF O-1 FREN A-AtL 

1611 IF 0-2 THEN A-L-A 

1912 IF Q=3 THEN A-A¥L 

1913 IF O-4 THEN A=L/A 

1Bi4 IF O-5 THEM A-IMTCCLAAD+9.5) 

1815 INS(CP,CP+7)-=CLS: IMS (CP, CP+72=S5TR 
$¢(AI:K=155:G605UB 942:G05UB 210:55 (15% 
Y-413 48, 15% CY-LIFKI“OZ" RETURN 

1628 GOSUB ZiB:POSITIONW 8,2:7 “Enter ¢ 
OLLs's: INPUT AS:IF LEN(AS)<2 OR LENCAS 
2>3 THEN 1025 

1021 IF ASC (AS (1, 199465 OR ASC CAS (CE, 13 
»>8@ THEN 1875 

1022 IF Val (as (23341 OR VAL CAS (293248 
THEN 1825 

1024 GOTO 1026 

1625 7? “4L}'>:G60TO 1626 

1826 KILENCASD-LIINSCCP4T, CP+T4K) ASSP 
OSITION 164+7,1:7 AS: TIT#KtL: RETURN 
1030 SS CASHCY~13 4H, 15% CY-13 4H) ="3"': 605 
UB 216:POSITION 8,2:7 “Operation: B & 
Go"; 

1031 GET 82,K:IF K-43 THEN O-1:AQS="+": 
£070 1648 

1632 IF K-45 THEN 0-2:A$="-":G0TO 1048 
1933 IF K=42 THEN O-3:AS='"*": GOTO 1846 
1634 IF K-47 THEN 0-4:AS="7":G0TO 1648 
1635 IF K-94 THEN 0-5:AS="4";60T0 1046 
1636 7 "Ul"; ;G0TO 1631 

1640 ZB: INSCOP+T, CPATI-AS:POSITION 16 
47,1:7 AS:T=T#L: POSITION &,7:7 "2nd No 
»:@el1 or Gumber"; 

1642 GET 82,K:IF K-67 THEN GOSLUB 1028: 
GOTO 1658 

1044 IF K-78 THEN GOSUB 1808:G0T0 i856 
1045 7 "Uy"; :GOTO 1042 

1658 GOSUB Z1@:0UTS(CP, CP+7)-INSC{CP,CP 
+7) : RETURR 

1206 POSITION 8,1:7 * 


san 
4 


Calculating... 


Pv | 


1282 FOR T=1 TO 600:1F SST, TI="3" THE 
NW GO5UB 1216 

1285 WEXT T:G0TO 428 

1210 CPICT-1)¥84L ;AS=CLE:IF INS (CP,CP) 

=)" THEN 1408 

1212 FOR A=CP TO CPHI:L=ASCCINS (A, Ad): 

IF L=42 OR L=43 OR L=45 OR L-47 OR L=9 
4 THEN Z=A-CPFL A-CPtS:O-L GOTO 1216 
1214 ASCA-CPHL, A-CP+1)=CHRS(L): NEXT A 

1216 TRAP 48000:I1F ASC(AS(1,199>64 AND 
ASC (ASC, 19) 48@ THEN 1220 

1218 A=VAL(AS):GOTO 1230 

1226 TRAP 1225: FIASC CAS (1, 199-64: G=¥VAL 
CAS (277 SH CF- 29 88+ CL 288 0G- 129 #1 AVAL C 

INS CH, H*#72):GOTO 1236 

41225 TRAP 1226:A=VAL (OUTS CH, H+7)) 2 GOTO 
1238 

1226 A-8 

1238 ASICLS:AS=INS (CCP4Z,CPt7):IF ASCCA 
$(1,199264 AND A5€(A45(01,1)99486 THEN 12 
34 

1232 L=VAL(AS): GOTO 1240 

1234 TRAP 1235: F=ASE (AS (L, 193-64: G-VAL 
CAS (29) HA CFS RS+ (L208 (G-LI FL LVALC 
INS (H,H#7)):GOTO 1246 

1235 TRAP 1236:L=VAL COUTS CH,H*+79):G0T0 
1246 
1236 
1248 
1242 
1244 
1246 
1247 
1248 


L=8 

TRAP 40000:IF 0-42 THEN A-=AMHL 

IF 0-43 THEM A=AtL 

IF 0-45 THEN A=A-L 

IF 0-47 THEN A=A/L 

IF 0-94 THEN A-INTCCA4L)+0.5) 

IF GL=@ THEM AS=STRS(A):G0TO 1278 

125@ If GL=2 THEN 1768 

1252 AX=INT(At8.5) :AS=STRG (47 :L=8-LEM(A 
$):G0T0 1278 

41260 IF ATINT(CAd THEN AS=5TRS (A): AS(LE 
NCAS)#19=",00":G0TO 12778 

£262 IF INT (A¥10)—-A#10 THEN AS=5TRS CAD 
SAS (LEN (AS) F12="8" GOTO 1278 

1264 A=INT CIGOHATE.5)/108:AS=STRS CA) 
1278 L=8-LEN (AS) OUTS CCP, CPHL =CLS: OUT 
S(CPtL, CPt7)=AS: RETURN 

£4908 SUMO: ASH=INS (CCPH+1,CPH3) sH=3:1F As 
(3,32 =":" THEN ASZINS (CPHL, CP4+2) :H=2 
1402 A=ASC (AS (1, 1))-64:L=VAL (A$ (2)) 
$404 ASTINS(CP424H, CP+79:F=A5C (45 (1, 1) 
2-64: G=VAL (A$ (23) 

1405 IF A=F THEN O=A-1:FOR Z=L TO G:TR 
AP 1416: H=O*B+ (1£20%(Z-1)) +1: V=UAL CINSE 
H,H+7))2:GOTO 1420 

1418 IF L=G THEN O=L:FOR Z=A-% TO F:TR 
AP LALGSHIZHBtCLZOH (0-1) FL: U-VAL CINS ( 
H,Ht7)):GOTO 1420 

1416 TRAP £417: Y=VAL COUTS (H,H4+79):60T0 
1428 

1417 Y¥-8 

1420 SUM=SUMtU:NEXT Z:A=SUM:GO5UB 1248 
s RETURN 

1500 7 A": 7 SY ET hae aT aa 


(mies: ? 3? 

i565 7 '' WORMAL CURSOR ARROM KEYS CON 
TROL THE':?7 '§ CURSOR CLONG BLACK BAR) 
1518?" A...Z,";CHRS (34); " Marks 
c@ll as a kabel'':? * @.,.9,+,- Marks 
cell as a value" 

isi5. 7" 3 Sue Formula. Tota 


Is values";? " in a column 


»> 


or row." 
15280 7 " OPTION 
ormula":? " SELECT 












2000 VS-' WI Bare cere rer ss | 192 : 
Q RUEPER 7210S READ E,BIS:IF E-PEEK(195) THEN PO 
SITION 6,1:7 ‘Urror:": DIS: TRAP «eeee: 


ose from:-" 

1525 7" G=Global Format: |=2 TO 4:H€T)=HCT-1) 48: NEXT T:POKE 5376/2210 IF E=-1 THEN POSITION 8,1:7 ‘Werr 

i L=Load Worksheet":? " |8,208:6L-8 or:Wo,";PEEK (195) ;"' ““:; TRAP 4666 
5-Save Worksheet" 2018 OUTS CL2=" “S0UTS(4880)=" ": O0UTS{2 |8:G05UB: 216: 60T0 S@ 

isze 7?" P=Print Horksheet |) =OUTS: INS-OUTS:5$ C19=" "359 (6009=" "3 12515 GOTO 2285 

sa des E=Erase Morksheet"™ §$(29=5$ 2128 DATA 138, Device Not 0n,139,Device 

1532 7" H=Home Cursor. (Ce j2615 PROCLIN" “sPRSC1209=" “sPRSCZ=PR| WAK,148,Serial Frame,142,S5erial Bus,1 

VE ALIS? ?-=Help Screen, |$ 43, Checksum No.143 

= 2020 Kui: Y-1:CS— "Rs KMIN=IK: MIN 12122 DATA 144,Write Protected, 162,Bdisk 

i835 ? " START Calculate Workshe |=K:Y1=¥:Ki=K: XMAK=4: YMAK=28:CELL5-="a1" | Full,163,Bad 005,167,File Locked,176, 

et:7 3:7 37 "b- PRESS ONY KEY TO RETUR |: FL-@:CLS=-" ” such file,-1,a 


MWen"S GET 8Z2,K:G0TO 428 





20356 RETERN 
2100 CLOSE Mi: RESTORE 21270: POKE $4266, 





NO TURTLE GRAPHICS... .«. 
BUT i«TFr’"s STitte LoGco! 


Most of ay programaing is done in Logo. 


No-one else I know is interested in Logo. 


stuff. 


Now both of these ideas are quite wrong. 


by Arthur Banks 


As a result I have felt reluctant to subsit any programs to “Inside Info’. 
Everyone seeas to think that Logo is just turtle graphics and just kids’ 


Logo is far sore than turtle graphics and, although it can be introduced to 


children, it is also a very powerful language in its own right. 


As an exaaple of a non-graphics application of Logo, here is a set of procedures to analyse the frequency with which 


each letter of the alphabet appears in a 


A progras in Logo consists of a controlling procedure which manages the prograa as a whole by calling a number of 


sub-procedures at the appropriate tiaes. 


piece of text. 


The controlling procedure in this program is called ANALYSE.LETTERS, Here it is- 


TO ANALYSE.LETTERS 
MAKE "LETTER.LIST [) 
GET. TEXT 
COUNT.LETTERS : TEXT 
REPORT :LETTER.LIST 
END 


Each procedure must have a nage. This one, ANALYSE.LETTERS, first establishes a variable called LETTER.LIST which, 
to begin with, has no contents. (It will ultimately contain a list of the letters in the text to be analysed.) 
ANALYSE.LETTERS next calls in turn three sub-procedures named GET.TEXT, COUNT.LETTERS and REPORT. 


GET. TEXT does what its name iaplies. It accepts text from the keyboard, 


TO GET. TEXT 


PR CTYPE IN UP TO THREE LINES OF TEXT} 
PR CFOLLOW EACH ENTRY WITH RETURN] 
PR CWHEN FINISHED ENTERING ALTOGETHER TYPE AN ASTERISK] 


PR {FOLLOWED BY A RETURN} 
MAKE "TEXT [) 

ACCEPT. TEXT 

END 


BET. TEXT itself contains a subprocedure- 


TO ACCEPT. TEXT 
MAKE "ENTRY RL 
IF sENTRY = £8] (STOP) 


MAKE "TEXT SE sTEXT sENTRY 


ACCEPT. TEXT 
END 


MAKE "ENTRY RL sets up a variable called entry and accepts input from the keyboard through the command RL 
(READLIST). If the entry is an asterisk this subprocedure stops and control qoes back to the procedure which called 
it. If the entry is not an asterisk the contents of entry is added to what is already contained in the variable 
called text, ACCEPT. TEXT then calls itse¥# so that the process is continued, 


Once the text has been entered ANALYSE.LETTERS then calls the next procedure- 
TO COUNT.LETTERS : TEXT 
IF EMPTYP : TEXT (STOP) 
GET. NEXT. WORD 
BET. NEXT.LETTER :NEXT. WORD 
COUNT.LETTERS BF : TEXT 
END 


The first line stops this procedure if and when the text variable is empty. If it is not empty then it calls 
GET.NEXT.WORD. From that word it gets the next letter using GET.NEXT.LETTER and then calls itself to repeat the 
process. 
Here is GET.NEXT. WORD. 

TO GET.NEXT. WORD 

MAKE "NEXT.WORD FIRST : TEXT 

END 


This isn’t very long is it? All it does is take the first word of what remains of the text. 
TO GET.NEXT.LETTER :NEXT.WD 
IF EMPTYP :NEXT.WD CSTOP) 
MAKE “NEXT FIRST :NEXT.WD 
IF MEMBERP :NEXT sLETTER.LIST {MAKE <NEXT (THING sNEXT) + {3 ENAKE "LETTER.LIST LPUT :NEXT 
tLETTER.LIST MAKE :NEXT 1] 
BET.NEXT.LETTER BF :NEXT.WD 
END 


If the word being exasined at the aosent is eapty then this procedure ends and the progras returns to GET.NEXT.WORD. 
If any letters remain in the current word then the procedure takes the first of the remaining letters and stores it 
in a variable called NEXT. If that letter is already contained in the list of letters found in the text to date then 
the procedure adds one to the count for that letter. If this is the first occurrence of that letter then the letter 
is added to the list of letters found in the text and the count for that letter is set to one. 


The final procedure called in this prograa is- 
TO REPORT :LETTER.LIST 
IF EMPTYP :LETTER.LIST (STOP) 
PR SE FIRST :LETTER.LIST THING FIRST :LETTER.LIST 
REPORT BF :LETTER.LIST 
END 


What this does, for each letter found in the text, is print out the letter and the nuaber of times that letter was 
found 


I realise that this program probably looks fairly complicated but it really isn’t particularly difficult and it does 
show that Logo can handle text as well as the graphics for which it is better known. 





SIMPLE DOLLAR FORMATTING 
By Peter Egan 


10 DIM D$(20) 

20 FOR D=1 TO 10 STEP 0.05:REM DEMO LOOF 

30 IF ABS(D)<1.0E-03 THEN D$="0.00":GO0TO 50 

40 DS$=STRS$ (D+. OE-03) s DS=D$(1 ,LEN(STRSCINT(D))) +3) 
SO PRINT "$":D% 

60 NEXT D 


en 





by barry Francis 


ME ADVE nMTuURreE DISSE ! 
The big news this month is the addition of a disk of Adventures to the Software Exchange. See SOFTWARE EXCHANGE NEWS 
elsewhere in this issue for details. 


ae = AD WES TORRES DPR TT CHE AF 

It is not generally known, but the Atari Program Exchange sells a seall range of text-based Adventures. These are 
fairly easy Adventures, which makes thea ideal for beginners. They are written in BASIC, but because of the disk 
interaction, they are available only on disk. After the demise of Futuretronics, the receivers were selling off all 
stocks of Atari and APX programs at ridiculously low prices. I recently found some of the APX Adventures being sold 
at Computer Wave, 325 George Street, Sydney for $15, marked down to $10, but I offered thea $5 and they accepted! At 
that price. you'd be crazy not to buy everything you can get your hands on! The Adventures to look out for are 
Wizard’s Gold, Sleazy Adventure, Alien Eqg, Chinese Puzzle, Castle, Sultan’s Palace and Wizard’s Revenge. 


Mee) AD ve EP TURE FrReort AT ArRT COoOR;F. 
I] often refer to the English users’ @agazine called Page’é. The last issue (issue 14) had a couple of advertiseaents 
for a new Adventure from Atari Corporation. It’s called Pay-Off and is available only on disk at 9.95 pounds in the 
U. K, 


MEW Fe Le ASSES Freon SYN Aar SE 
Synapse have released a series of sophisticated all-text Adventures which they refer to as Electronic Novels. They 
have a full sentence parser which is apparently as sophisticated as Infocom’s. In fact, one review said it was 
"lightyears ahead of its competition*. 


The first titles in the series are Mindwheel (a journey into the minds of four deceased people to find clues to the 
Whee] of Wisdom) and Essex {an intergalactic search and rescue mission). Future titles include Briastone (a eedieval 
adventure story), Breakers {a science fiction fantasy on the planet Borg) and Ronin (a samurai epic). The Atari 
versions are priced at US$39.95, which includes a hardcover book which you need to read before playing the gqaee! 


mo—- FT YOURSELF ADVE nN TURE S&S 
Ever wanted to write your own Adventure, but didn’t have the programming expertise? Have no fear. There are now a 
number of Adventure writing programs on the market. I haven’t seen any of these "in the flesh" yet, but they have 
certainly generated a lot of interest from other people. First in line is Adventure Master from CBS Software. One of 
our members has bought it and he was raving over it at the Australian Personal Computer Show. 


Second in line is Adventure Writer from Code Writer Corporation. The only review I’ve read so far was in Mideastern 
Software’s newsletter and they were wrapped in it. According to the January 1985 issue of Micro Adventurer, 
Adventure Writer is a disk-based version of the English prograa called The Quill (which was originally written for 
the Spectrum), but I’m not sure how true this is. The Quill has had some good reviews, but the comeercial Adventures 
produced with it have generally been poor. Let’s hope Atari users are aore imaginative. 


Finally, Electronic Arts has announced Adventure Construction Set. If it’s as good as other Electronic Arts 


products, then this could be the pick of the crop, but who knows? If you write any Adventures using any of these 
products, please send thea to me for the Software Exchange. 


CIF Doe TMA ADVE PTR FoF THE ATAF T 
Q: Can | get a copy of "Adventure" for the Atari? I’ye played it on the University of New England’s DEC 20 and 
necome addicted. - Danny McClatchey 


A: You bet your brass lantern you can! I know of two versions for the Atari. The first is called Original Adventure 
and 15 written in BASIC by Robert A. Howell. It is available direct from the author on a 32k cassette or 40k disk 
for U5$20.00. The price includes return airmail postace and an 8 page manual with loading and playing instructions, 
brief history and 84 coded hints. Send to Robert A. Howell, 20 Rich@an Road, Hudson, NH 03051, U.S.A, and tell hir 
you read about it in INSIDE INFO! (A full review. as well as a history of Adventure and coded hints are given in ay 
Adventure colu@n in Page 6 Issue 9. There should be a copy in the library, otherwise write to Page 6, P.0. Box 54, 
Stafford, ST1é IDR. U.K. for subscription details.) 
ee | >_> 


The second version is called Colossal Adventure and extends the original mainframe version by adding a new end-game 
with 70 additional rooas' It costs 9.95 pounds and is available only on cassette from Level 9 Computing, 229 
Hughenden Road, High Wycombe, Bucks. HP13 SP6, U.K. 


| Ria MT fs 
Q: I’ve oot 12 of the 13 treasures in Adventureland. Is the last treasure in the lava? [If so, then how do | get it? 
- Matthew Johnson 


A: 1711] be dammed if you think I’@ going to tell you where the last treasure is! 

tears 
Q: I’ve got two questions about The Curse of Crowley Manor. How do you open the rosewood chest in the parlour and 
how do you get through the plywood wall in the small storage room? - bary Qwen 


A: Remember the growth in the kitchen? Take it to the dining room and let it have its fill! This should answer both 
your questions. 

> i oe ee | 
Q: What’s the third thing you need to do to get through the Entrance to Hades in Zork [? - Matthew Johnson 


As Sir Richard Steele once wrote that "reading is to the mind what exorcise is to the body"... or something like 
that. 

teary 
Q: How do you find your way around the oddly-angled rooms in Zork 11? Has it got anything to do with baseball? - 
Daryl Barlow : 


A: Yes, it does have something to do with baseball. First of all, find the home plate (now what would you expect to 
find at the home plate?), then walk in the directions that you’d expect to follow if actually playing a game of 
baseball. If it’s any consolation, the Zork I] Invisiclues tell us that the authors designed this maze to confound 
faze @appers. (It certainly confounded ee!) They adgeit it’s a difficult problem and apologise to non-American 
lorkers who wouldn’t be familiar with all the baseball oriented hints. 

year? 

Q: I’m having trouble getting started in Starcross. The computer tells me to refer tc the masse detector output for 
the coordinates of the unidentified mass, but 1 can’t find it anywhere, What’s going an? - Les Pobjs 


A: The mass detector output is the aap that cage with the documentation. (It’s labelled in the upper right hand 
corner.) 

year 
Q: I’ve made ay way through the coal@ine in Sorcerer, but now that I’ve reached the top of the chute. I can’t think 
what to do next. Any hints? - Peter Megarrity 


As How did you ever get roped into this? 

trreet 
Q: How do you prove your intelligence to the Sirius Cybernetics door in The Hitchhiker’s Guide to the Galaxy? - 
Bruce Morgan 


A: Two other people asked me the same question, but I was unable to help them because I haven’t played Hitchhiker’s 
Guide yet. However, I recently received a letter from John Sweeney of Nottingham in the U.K. asa result of ay 
Adventure coluan in Page &. John had this to say: “My major problem was how to persuade a door that I was 
intelligent! I got stuck. During the next three weeks, I solved Suspended and Suspect while continually failing to 
Make any progress on The Hitchhiker’s Guide to the Galaxy. Then one day, chatting over lunch, INSPIRATION! If | 
tried ’that’ which was so completely illogical, but logically so (like learning to fly by throwing yoursel at the 
ground and missing!) and assuge that all those clues that it had been apparently giving me were actually red 
herrings and that the jokes were actually clues, then could ’that’ actually work? Yes, it did! I am now standing on 
Magrathea waiting for thea to release part II. Infocom prove that they are best yet again!” 
trays 

Q: When I1’a on the Heart of Gold in The Hitchhiker’s Guide to the Galaxy, I keep getting transported to different 
locations. What’s gcing on? - Paul Benjamin 


A: I don’t know. As I said above, I haven’t played Hitchhiker’s Guide yet. If anyone can help, please ring Paul on 
(02) 32-0751, 





Have KOU subnitted an article yet??? 


cy 


ASSEetMibBbewLyY LANGUAGE 
by Roberto Romano 


This is the first of a series of articles on assembly language. This article will focus on eacro asseablers 
(particularly MAC/&5 from OSS Software) although general purpose asseablers can also be applied. Those of you who 
are programming in asseably language without aaacro assembler are just wasting alot of tise. With a aacro 
assembler, you can define your own little routines to do anything you want. Once you have written a bit of code 
which you think @ight be of some use in the future, you can "crystallise" it in a sacro and call that same bit of 
code over and over without having to re-write it or even re-type it. 


How do we write macros 7. I hope to give you aany ideas in these articles on how to write and use @acros. So go out 
and buy the MAC/65 and we can get started... 


First, I have a couple of useful maths macros.: a fast, efficient multiplication macro and a square root macro. Yes, 
square root ' Not floating point though. This aacro returns the square root of any 8-bit or 16-bit number to the 


nearest integer and is useful in plotting where square roots are involved in the calculations. 


A 


10 SERRSESESELERETT IETS ST Tey 0400 STA 23+1 0800 ADC #2 

20 $% MATHS MACRO LIBRARY %% 0410 CLC 0810 STA STMPI 

30 RESSCERTLRETE TEETER TSE SS 0420 BCC MULT! 0820 BCC OK 

40; 0430 RET 0830 INC @TRP1+1 

30 ; 0440-  ENDM 0840 OK JMP @PROCEED 

60 ¢¢ 8-BIT MULTIPLICATION MACRO: 0450 ; 0850 END LDA @TMP2 

70; ORG0 gseaseessecseeestereeases 0860 STA 22 

80 ; call is : MULT nusl,nua2,Isbiresu] 0470 ; 0870 LDA @TMP2+1 

It) 0480 ¢# SQUARE ROOT MACRO 3 0880 STA Z2+1 

90 ; nual and nua2 are literals if the| 0490 ; 0890 ENDM 

y are less than 256, else they are mem | 0500 3 call is SR nus,isb of loc. (res | 0900 ; 

ory locations. ult) 0910 sssstisrssssssssssssssssssssse 
0100 ; 0510 ; nua is a memory loc. containing | 0920 ; 

0110 «MACRO MULT the nuaber in lsb/asb fora. 0930 ; $33 EXAMPLES $83 
0120 ; 0520 : 0940 ; 

0130 JAP SHSTART 0530 ~MACRO SOR 0950 NUM1 = $4000 

0140 STENP .BYTE 0 0540 ; 0960 NUM2 = $6100 


0150 ; 

O160 GNSTART .IF 214256 
0170 LDA #21 
0180 «ELSE 

0190 LDA i! 
0200 ENDIF 
0210 oIF 224256 
0220 LDX #22 
0230 »ELSE 

0240 LDX 22 
0250 ENDIF 
0240 STA @TEMP 
0270 STX 23 

0280 LDA #0 

0290 STA 23+! 
0300 LDY #9 

0310 CLC 

0320 MULTI ROR 43+] 
0330 ROR 23 

0340 DEY 


0350 BEA RET 
0360 BCC MULT! 
0370 LDA Z3+i 
0380 CLE 

0390 ADC @TENP 


0390 UMP @PROCEED 
0560 @TNP1 . WORD 0 
0370 @THP2 .WORD 0 
0580 @THP3 .WORD 0 
0390 3 

0600 ; 

0610 SPROCEED 

0620 CLC 

0430 LDA @TMP3 
0640 ADC @TMP1 
0650 STA @TAPS 
0640 LDA @TMPS+i 
0470 ADC @TMPi+i 
0680 STA @THPS+i 
0490 CMP ditt 
0700 BCC CONT 


0710 CLE 
0720 LDA @TMPS 
0730 CMP il 


0740 BES END 
0750 CONT INC @TMP2 
0760 BCC CONT2 
0770 INC @TMP2+1 
0780 CONT2 CLC 

0790 LDA @THP1 


25 


0970 RESULT = $6200 
0980 SORES = $4400 
0990 t= $6500 
1000 SQNUA .WORD 0 


1010 ; 

1020 = $4000 

1030 OPT OBJ 

1040 

1050 3 ault. 30X20, result in $6200 


1060 
1070 LDA #30 
1080 STA NUM 
1090 LDA #20 
1100 STA NUM2Z 


1110 MULT NUMi,NUM2, RESULT 


1120 ; 


1130 ; sart. of 900, result in $6400 


1140 ; 

1150 LDA # <900 

1160 STA SGNUM 

1170 LDA # >900 

1180 STA SQNUM+1 

1190 5QR SQNUM, SORES 
1200 BRK 


Those of you not familiar with MAC/465 will notice two unusual syabols in Listings 1 and 2. The first one, 4 denotes 
a parameter passed toa macro. That’s either a literal value or a memory location. The number of parameters 15 
denoted by 40. The other syabol is @. This denotes a label within a macro and it is good practice to name macro 
labels in such a way as to easily distinguish thes from labels in the rest of the prograa. 


A good exercise for those who don’t know NAC/65 is to try and remove the eacro-specific code in the MULT macro of 
Listing { and extract the raw 6502 code. Those who succeed will get a free sulti-coloured player-missile !! 


As this is a column intended for advanced users I will move on rather quickly... 


A fairly recent addition to 0SS’s superb line-up of software is the MAC/65 TOOLKIT. This is a collection of macros 
that complement the cartridge and allow the skilful programmer to harness the full power of the sachine without tao 
such effort. It is disk based and comes with a 29-page booklet which details all the macros and includes exaaples 
and hints on how to use thea. All the usual I/o @acros are present along with page-clear, page-move, block-clear and 
block-sove @acros. For example, P6MOVE allows to move a page of memory, e.g. to move page 6 to page 150 you simply 
Say: 

P6MOVE 6,150 
Naturally, Player/sissiles are supported. There are 12 P/M macros, agsong which is PNMOVE, which allows you to @ove a 
player to any screen position. For example, PMMOVE 1,150,80 will ove player { to screen position 150,80 (sisilar 
to a BASIC XL command). 


For the icing on the cake, OSS have added two macros that allow fine scrolling. SCRDIM sets the fine scrolling 
parameters and SETXY does a coarse scroll. The scrolling routine itself is executed as a deferred vertical blank 
interrupt routine. 


10 ;SRSeseeresssaassssesess 0270 CALC 23 0540 STORE YC 

20 338 A GRAPHICS macro $3 0280 PLUS 22 0550 CALC LEN 

30 s8eeeeeeseessesszee cece 0290 STORE &@T2 0540 PLUS 3 

40; 0300 PLOT 21,22 0570 STORE LEN 

50 t= $4000 0310 DRAWTO §@T1,2%2 0580 IFGT XC,240,ABAIN ztest ">" 
60 »OPT NO LIST 0320 DRAWTO 871,872 0590 UMP ONCE + loop 
70 4 0330 DRAWTO 21,872 0400 ; 

80 JMP INCIP 0340 DRAWTO 21,22 C610 ABAIN CALC Xf 

90 ; 0350 ENDM 0420 MINUS 120 

0100 INCLUDE #D4: KERNEL. M65 0360 ; 04636 STORE XC 

O110 ; O370 3X44 949K KKK DD 0640 CALC YC 

0120 XC .WORD 0 : x-coord of star | 0380 ; 0650 MINUS 30 

t 0390 INCIP POKE YC,40 salways <192 10660 STORE YC 

0130 YC .WORD 0 s y-coord of star | 0400 VPOKE XC,160 3 maybe 9254 [0470 ; 

t 0410 BR 10 : like BASIC 0680 MORE FRAME XC,YC,LEN 
0140 LEN .WORD 0 : length of side | 0420 SETCOLOR 2,0,0; " " 0690 CALC XC 

0150 ; 0430 COLOR 1 -; " ° 0700 MINUS 10 

O21 02020202 0202020) 0440 POKE 87,8: a bit of colour 0710 STORE XC 

0170 ; : 0720 CALC YC 

0180 «MACRO FRAME 0450 POKE 704,54 0730 PLUS 3 

0190 ; 0460 POKE 711,148 0740 STORE YC 

0200 JMP @BSTART 0470 POKE 712,152 0750 CALC LEN 

0210 @T1 .WORD 0 0480 ONCE FRAME XC,YC,LEN 0740 PLUS 5 

0220 @T2 .WORD 0 0490 CALC XC 0770 STORE LEN 

0230 @BSTART 0500 PLUS 190 0780 IFLT XC,10, END 
0240 CALC 23 0510 STORE X€ 0790 IF6T YC,190,END 
0250 PLUS 2%! 0520 cAc YC 0800 JAP MORE 

0260 STORE @T1 0530 PLUS 5 0810 END JAP END 


Listing 2 shows how to use some of the TOOLKIT macros to define a FRAME macro. a frase being an empty square box 
drawn clockwise from the top left corner. In this listing you will notice some familiar commands like 
COLOR, SETCOLOR, 6R (graphics) and POKE {lines 410 to 470). Other aacros are CALC, which loads a pseudo-register with 
a value or sesory location ta be used in wath calculations; PLUS, which adds a value to the one used in CALC and 
STORE, which stores the result of the calculations in a Specified semory location (word). (lines 240 to 290) 


Line 580 tests if XC is greater than 240. If so, the program juaps to AGAIN. See if you can figure out what the 
program does. It uses the hybrid aode 10/8 


Next time, we'll have sowe graphics macros that allow to translate and rotate objects. 


cb 


TOUCH TABLET APRrLICAT I ONS 


by Ian Champ 


Those of you who have purchased the Atari Touch Tablet or another touch tablet will already know how useful a tablet 
is for putting graphics onto the screen, but do you realise that it is also a particularly useful instrusent to use 
in your own prograas? 


Before you can use the tablet in your own prograas, you will need to know how it sends inforration to the coaputer. 
Type in listing 1 and try pressing the tablet in various spots (note: these programs are for the Atari Touch Tablet, 
but I would not be at ali suprised if they work in such the same aanner with the Koala Pad). You should see two 
coluans of nuabers. AS you aove your finger from left to right on the tablet the nuaber in the left coluan 
increases. As your sove your finger from bottoa to top the number in the right hand coluan increases. 


5 “+ sepyee 

io PEEK C6243=->-22728 AND PEEK €6253 —-2286 
THEN i164 

2@ 7 PEEK C6243, ,PEEK C6253 

36 GoTo i180 


Thus you can see from studying listing { that the tablet is continually sending nuabers to seaory locations 624 and 
625 to indicate the vertical and horizontal points at which it is being pressed. If it is not being pressed at all, 
it will send the nuaber 228 to both aeaory locations (hence the use of line 10 in listing to stop any nuabers 
appearing on the screen if the tablet is not pressed). 


What about the two buttons on the tablet, and the other on the stylus? Type NEW then type:- 
18@ PRINT STICK C€G@3 :GoTO 18 


and RUN this prograg. You should get 15 1+ none of the buttons are pressed, and various other nuabers when one or a 
coabination of the buttons is pressed. 


Using listing one, nuabers between 0 and 228 were obtained, however it is almost iapossible to be accurate enough to 
be able to point to exactly the sase spot twice,so | decided to split the tablet into a series of boxes. I ruled a 
piece of paper which was exactly the same size as the surface of the tablet into 25 boxes across, and 18 boxes up 
(these are arbitrary nuabers, and infact a piece of graph paper would do just as well). 


I put this under the plastic on the tablet and using listing one, I established the saallest nuabers that I could 
get (using a sharp point this tise rather than pointing with a finger). The numbers that I got were 4 (across value) 
and { (up value), but you will probably get different numbers with your tablet. I then went to the box on the top 
right corner of ay sheet, and placed the point on the lower left corner of this box, and noted these values. I got 
212 (across) and 225 (up) but again, your values might be different. These values are used in lines 20 and 25 of 
listing 2, ie, 212/25 boxes=8.48 and 225/18 boxes=12.5. The net result of this is that listing 2 can print on the 
screen the nuaber of the box being pointed to. This is useful because while with listing 1 it is extreaely 
difficult to point to any particular point, using listing 2, it is quite easy to point to a particular box at will. 


By expanding this prograe I have for example put a sheet on the tablet which shows large calculator buttons, and 
have written a short program which prints the nuaber pressed on the screen, and with a little sore work could becoae 
a simulated calculator. It would also be possible to draw a piano type keyboard and put this onto the tablet, and 
to write a progras so that one could play a tune by pointing to simulated keys! The possibilities are only as 
ligited as your imagination, the tablet might be used as the console of a rocket ship or as a large key input device 
for children or those with vision or coordination difficulties. 


In visualising the tablet as a game controller, it is interesting to note that memory locations 624 and 625 are also 
used by the paddle controllers. If you have a game that uses paddles, try playing it by pointing to the tablet, 
but be warned, you may decide to throw away your paddles after having done so' If there are quite a few people out 
there who have the Touch Tablet, and if they are interested enough to let me know that they exist (via ACE), then I 


Will design some applications and underlays that could be used with the tablet. Perhaps someone else could do 
likewise for the Koala Pad, 


Because it is possible to translate the pictures made by tablets, lightpens and joysticks (see ay other article and 


c]7 = 


the conversion program in Antic Vol. 3, No. 5), I would be very interested in trading pictures a diskful at a tine 
with others. I would suggest that the best way to do this is through the clubs software exchange, and that the club 
should encourage this to happen. Perhaps the club could soon be staging art exhibitions for the public! 


Finally then, try listings 3 and 4 and see if you can build on them to turn the tablet into a unique musical 
instrusent. 
> REM SRLISTIHG SRR 


S REM RELISTING Jue 16 IP PEEK(624) (228 AND PEEK (625) (228 
46 IF PEEK (624)(228 ARB PEEK (625)(228 THEN SOUKD 8, PEEK (624) ,16,19:508D 1,P 
rear ce ©, PEER C624) , 19, PEEK (6253/15 EFEX (625) ,16,1@:6070 18 


26 SOUND @,86,6,8:50UK%5 1,8,8,8:G0TO 18 
28 SOURS 6,8,8,3:G0TO 16 





Book REVIEW 


THE ATARI B00XL by THOMAS BLACKADDER 
Reviewed by Dennis Sampson 


1 found this book extresely easy to read and aost iaportantly, easy to use with ay Atari BOOXL. The book skips 
across the wide spectrua of ‘uses’ without "bogging down’ at any particular stage. 


For the beginner (like me), I think this book is a very worthwhile addition to any computer library. Capital letters 
are used to eaphasise key words, while italics aade for easy references and negated the use of *highlighter’ pens. 


The only criticise I can level at this book is the use of two chapters (9 and 10) devoted to storage: cassette and 
disk, since sufficient and comprehensive docugentation is provided with the purchase of these hardware. 


_LAaBEt. PRINTER 
by K. J. Bricknel] 


LABEL PRINTER is a program to format and print text on fanfold sticky labels. Although written for the ATARI/EPSON 
coabination and the ubiquitous 23am by 90ma label size, the program could easily be modified for other dot satrix 
printers and label sizes. 


Firstly, the code related to the rainbow-qraphics title screen does nothing really useful. If you don’t need this 
bit of decoration, siaply delete line 20 and all lines after bine (880, 


Run the prograa and the first thing you will be asked is whether you need instructions. After paging through the 
instructions (or after you answer ’no’ to the request), you will be asked for the number of lines you require on the 
label. Any nusber of lines up to five may be input. (During printout, the top and bottom margins and the line 
Spacing will be set according to the nuaber of lines you input.) 


You will then be led through the formatting of each line. For each label line you will be asked for the lettering 
size required, the actual text for that line, whether you wish the text automatically centred and whether you 
require noraal, eaphasized or double-strike print. An input mask shows you the maximua characters for each line. 
(This will, of course, vary according to the lettering size you select.) 


If you make a mistake while typing the text line, step back to the required position with the DELETE BACK S key. 
Other input mistakes can be corrected by using the ESCape key. In fact, you can backtrack right back to the 
beginning of the format routine with successive presses of the ESCape key if you so desire. (The ESCape key may also 
be used in this way te correct input errors in other parts of the proqraa.) 


After you have formatted each label line, you will be asked if there is any particular line that you wish to have 
change automatically during printout. (This option is useful for, say, children’s schoolbook labels where the naae 
remains the sage but the subject title changes from label to label.) 


If you choose this option, you will be asked to input the text for the various versions of this line. The nuaber of 
labels printed during printout will be determined by the nuaber of versions of this line that you input. (If 30 
labels are insufficient for your perceived needs, TEXTC$ (line 790) may be rediaensioned.) If you do not choose 
this option, you will be asked to input the number of labels to be printed. You will then be led through the 
printout phase after which, if you wish, you will be returned to the formatting routine for the next label. 


cf - 


1 REP SeMeeeenannReIeseceter MeO RIICIRMERR Ree 
2 REN BR LABEL PRINTER | 
3 REM ® by K. J. Brickell bs 
4 REM # Published by Atari Computer # 


5 REM 8 Enthusiasts (N.5.H.) R 
6 REM tt June £985 w 
7 REM ff 





38 OPEN 82,4,6,°K:" 

46 GRAPHICS GO: POKE &2,@:S5SETCOLOR 1,4,1 
4:5ETCOLOR 2,09,8:POKE 752,141 

56 POSITION 5,12:7 "WEED INSTUCTIONS? 
C fd =VYES)":GET #2, A:IF A-89 THEN 1716 
6@ REM Initialization 

7@ BIM LSONS (16), LSOFFS(10) , PTONS (198), 
PTOFFS (10) , MASKS(55) , CBACKS (55) , TERTIS 
(54) , TEXT2$ (54) , TEXTS (276) , L$ €40) 

88 DIM ASC2):PR-8:CN=@:CLN=-@:AC—@: CHEC 
X=8 

9@ L$ C19 =": 1S (4B 25619 LS C2915 (1) 
100 MASKS='Ff': MASKS (55) MASKS (1) : MASKS 
(2) =845K5 (1) 

116 CBACKS="€": CBACKS (55) =<CBACKS (1) :CB 
ACKS (29 -=CBACKS (1) 

12@ TEXTS="" "": TEXTS (270) =TEXTS (13 : TEXT 
$ (29 =TEKT3 C1) 

136 7 “R'S SSETCOLOR 2,2,4:S5SETCOLOR 4,2 
»4:5ETCOLOR 1,2,14:G05U8 1668 

146 REM Input number of lines 

15@ POSITION 6,11:? “How many lines th 
iS Label? (Max 5S) 
160 GET 82,A:IF A449 OR ADSI THEN 7? CH 
A$(253);:GOTO 168 

170 * CHRS CA+128) -HL-A-48 

16@ REM Main input loop 

190 FOR L-i TO ML:GOSUB 1616 

26@ SETCOLOR 2,6,4:SETCOLOR 4,6,4:SETC 
OLOR 1,6,14 

216 7 "Ki eS ST ee eve; CHRS € 
Lti76) ;' i; FOR 0-1 10 
S@:REXT DO: GOSUB 1606 

22@ REM Input lettering size 

2360 POSITION 6,2:? “Mich lettering 53 
ze:":7 :7 "SWNORMAL FISMALL KILARGE [IMEDI 
uM ans 

248 GET t2,A 

258 IF &-=27 AND L=1 THEN GOSUB 1668:60 
TO 136 

26@ IF A-27 AND L)i THEM L=L-1:605U8 £ 
666:GOTO 268 

270 IF A<49 OR AD5S2 THEN 7? CHRS(253);: 
COTS 249 
280 % CHRS(A4128); :L5-A-48 

290 IF 15-1 THEN LSONS (L%2-1,L¥23 =" 99" 


Gs 
’ 


tL SOFFS (L¥2-1, L#2)="9O" : MASKLEN=31:G0T 
0 330° 
308 IF L5=2 THEN LSOWS(L¥2-1, 14292", #" 
SLSOFFS (L%2-1, L%2) =": MASKLEN=54:60T 
0 330 


310 IF L5=3 THEN LSONS(L¥2-1,L%2) =" 9" 


I LSOFFS (L¥2-1,L%29="9O"': MASKLEN=16: GOT 
0 336 

320 IF L5=4 THEN LSONS(L¥Z2-1,L#29="_” 
SLSOFFS (L¥2-1,L*2)=""e=—": MASKLEN=27 

338 GOSUB 1668 

3486 REM Input text for line 

356 POSITION 6,6:7 19:7? “Text for line 
ae L : ae H au 

360 POSITIOM @,10:7 MASKS (1, MASKLEN) ;C 

BACKS (1, MASKLEN) ; : IF-MASKLEN=54 THEN 7 
gite 

376 FOR X-1 TO MASKLEN 

386 GET #2,A:IF A=27 AND K-1 THEN GOSU 
8B 166@:GOTO 286 

398 IF A-126 AND K-=1 THEN GOTO 368 

406 IF €-126 AND K-41 THEM K=H-1: TEXTL 



















$CRI= > NeOMees COTO rae 

410 IF A=126 THEN K=N-£: TEXTL§S (CK) =": 7 
efe"; :CeTO 386 

420 IF A-155 AND X-1 THEN TEMTLI§$=" “36 
OTO 488 

430 IF A-155 THEN 486 

440 IF A=27 THEN TEXTLS="";G0T0 360 
458 TEXTLI$CKI-CHRS(Ad3? CHRS CA); 

468 WEKT X 

486 GOSUB 1686 

490 REM Input centering choice 

560 POSITION @,13:7 L$:? “Automatic ce 
mtering dEYes [ENo) 
510 GET 82,A | 


ate 
r 


$20 IF €=27 THEM FOR D-13 TO 16: POSIT 


ON 6,D:? * 
“s:WEXT D:GOTO 356 

538 IF AC)89 AND ACD78 THEN 7? CHRS (253 

+:G0TO $16 
540 27 CHRSCAtL28);:IF AC)89 THEN HSL=1 
» TEKT2$ CHSLIXTERTIS:G0T0 566 
55@ GOSUB 1568 
568 TEXTS (L¥54-53,L¥%54) <TEKTZ$ 
576 GOSUB 1608 
589 REM Input print type 
596 POSITION @,17:7 L$:? “Which print 
type:":? 17 “SNORMAL PEMPHASIZED Boous 
LE STRIKE "5 
606 GET #2,A 
616 IF A=27 THEW GOSUB 16686:GO0TO 268 
620 IF AC49 OR ADSL THEN 7 CHRS(253)3: 
GOTO 668 
630 7? CHRSCAtL263;:FOR O=-@ TO 70: NEXT 
D : 
640 PT=A-48:7 "RK" 
656 IF PT=1 THEN PTONS (L¥2-1,L%2) —"9q 
:PTOFFS (L¥2-1,L%23="09': GOTO 786 
66@ IF PT=2 AND LSOMSCLHEZ-1,L%2)=", o 
THEN PYONS (12-1, L%23—"O@': PTOFFS (LH2- 
1,L%23="0@'; GOTO 788 
678 IF PT=2 AWD LSOWS(L¥2-1,L%2)=-",_" 
THEM PTONSCL¥2-1,L%2)—"OM': PTOFFS (L¥2- 
1,L%23="99": GOTO 788 
689 IF PT=2 THEM PTONSCL¥2-1,L%2)—"€E" 
tPTOFFS (L%2-1,L%29—"EF":60TD 708 
690 IF PT=3 THEN PTONSC(L¥2-1,£%2) —"tG" 
:PTOFF$(L¥2-1,6%2)="EH" 
70@ IF CHECK=2 THEM CHECK-8:60T0 728 
718 WEKT L 
7280 GOSUB 1610:S5ETCOLOR 2,16,4:S5ETCOLO 
R 4,18,4:5ETCOLOR 1,18,14 
738 REM Changing line module 
748 7 “RIS there a particular line tha 


t you wishto automatically change fron 
label to label during printing “; 
758 7?" dYes) 
768 GET #2,A:IF A=Z7 THEM L=NL:CHECK=1 

:G0SUB 1668:G0T0 268 

776 IF ACS? ARD AC)78 THEN 7 CHRS (253 
3:G0TO 766 

780 IF at>89 THEN 1110 

798 PRIL:CN=2Z:DIM TEXTC$(1628):GOSUB £ 

G1G:SETCOLOR 2,4,2:SETCOLOR 4,4,2 

8600 ? “KOK, Hhich line is the one whic 

ho has to change from label to label? 


its 
s 


810 GET #2,A:IF AC49 GR ADNL+48 THEN ? 
CHRS{253);:G0TO 818 

828 7 CHRS (CAt128) : CLN=A-48: TEXTCS=" *: 
TEXTCS(€16289=" "s TEXTCS C23=TEXTCS (1) 
830 TEXTCS(L,54) <TEXTS (CLNHS4-53, CLNMS 
4) 

840 IF LSONS CCLNH2-1,CLNEZ)—"9@" THEN 
MASKLEN=31 


ate 
i 


MASKLEN=54 

8660 IF LSONS(CLEZ-1,CLOH22—"_@ THEN 

MASKLEN-16 

870 IF LSOWS (CLNH2-1,CLMHZ)=", " THEN 

MASKLEN-27 

686 GOSUBS 1616:7 “ROK. We already have 

the text for the first Line “;CLN; 
» Now type the text" 

$98 7 "for each successive line "; CLM; 
" followed by (3MMEF:? :7 “nit 

(] at input prompt to terminate" 

908 7 :? "Incidentaliy, do you want th 

ese inputs automatically centred @Ey¥ 

es) ss 

916 GET HZ,A:IF A4DB9 AND AC)76 THEN 7 
CHRS(253);:G0TO 918 

920 IF A489 THEN 948 

938 7 57 “It shall be done": AC=1 

946 GOSUB 1610:7 3:7 “OK. Start your in 

puts":7 ;? 

958 7 MASKS (1, MASKLEM) s CBACKS (1, MASKLE 
M2; :IF MASKLEN=S4 THEN 7 ""¢"; 

960 FOR K-i TO MASKLER 

978 GET 82,A:IF A-155 AND Hri THEN 110 
Q 

986 IF A-126 AND X=1 THEN GOTO 958 

990 IF A126 AND K-41 THEN KROH-1:7 “¢¢ 

Ekt"';:GoTo 97¢ 
1000 IF A-126 THER 
978 

1616 IF A=-27 AND MASKLEN=54 AND K(40 T 

HEN 7 “#"'SG0TO 958 

1028 IF A=27 AND MASKLEN-S4 AND H>40 T 
HEM 7 “4: GOTO 958 

1038 IF A-27 AND MASKLEN()S4 THEN ? '""¢ 

*:60T0 958 

1046 IF A-155 THEN 1978 

16508 TEXTi$CK)-CHRSCAd:? CHRS(A); 

1968 NEXT ¥ 

1070 IF ACQ1 THEM TEXT2$-TEXT1IS 

1686 IF AC=1 THEM GOSUB 1568 

1698 TEXTCS (CNES4~-SI, CHS 4) <TEXTZS: CH= 

CNt1:7 :? :G0T0 9586 

1106 CN=CH-i:7 "K":G0TO 1228 

1118 GOSUB 1L680:SETCOLOR 2,3,4:S5ETCOLO 
R 4,3,4 

1120 REM Input nusber of copies 

113@ 2 "KHow many Copies this Label 

Mites"; 

1140 FOR H=i TO 2:GET 82Z,A 

1158 IF A448 OR ADS7 AND AGD155 THEN 7? 
CHRS (253); :G0TO 11390 

11680 IF A=27 THEN 1136 


1178 IF A=155 AND K=1 THEN Live 

1186 IF A=155 AND K=2 THEN 12i@ 

1196 ASCH, KI -CHRS (AI :7% CHAS CA4128); 
1206 NEXT XK 

1218 B=VAL CAS): CH=8B 

1226 GOSUB 1698 

1238 REM Print routine 

1248 SETCOLOR 2,3,4:S5ETCOLOR 4,3,4:7 ; 
?7 "KOK. Set the label fanfold in the p 
rinterso that :" 

1258 7:7 "1, The top of the carbon r 


TH-1:7 "efit; GOTO 


ibbon is aligned with the space be 
tween the labels, and‘ 

1266 7 :7 "2, The left edge of the la 
bel is aligned with the second ! 
ine on the scale" 


1278 7 :? :? “Ensure printer is on-lin 
e and hit (Jad. when ready to print”:? 


£266 GET 82,A:IF A=27 THEN 1136 
1290 IF AQ)155 THEN 7 CHRS(253):GOTO 1 


850 IF LSONS CCLNH2-1, CLHHZ)=""y @ THEN {288 


eq 


13@@ GOSUB 1608:? “APrinting...":7? 1519 7 :? “any more (i-Yes) r mediua lettering." 


131@ TRAP 1630: OPEN 81,8,8,"P:"57 S1;C€ - 1746 ? :? “You may have the print for 

HRS (27) 5 O's CHRS (27) | "CO": CHRS CO) | CHRS () 1526 GET 827,Aa:IF &4)89 AND A(>76 THEN |any one line in norwal, emphasized or 

1); CHRS (27) 5 "8"; ? CHRS(7253);:G0TO 1526 double strike." 

132@ IF WLo3 THEN 7 #4;CHRS(27):"A"SCH)153@ IF A-89 THEN CLR :? “R':GOTO0 76 |1758 7? “(Note that there is no enphasi 

R$(18); 1548 GRAPHICS @:POKE 82,2:ENDS Zed print with small and medium letter 

A33@ IF ML=2 THEN 7 81;CHRS(27);"A";CH/ 1550 REM Text centering subroutine ing. If you" 

R$(24); 1566 BxoLENCTEXT1$):IF BSMASKLEN-2 THEN|1766 ? “input emphasized print with sm 

1340 IF WL=5 THEN 7 1;CHRS(279;"A";CH| TEXT2$<TEXT1$: RETURN all and medium lettering, your input 

n$Cie); 1570 HSL—=(MASKLEN-B)/2:TEXT2S=" “: TEXT) will be disregarded.)" 

135@ FOR 1iL-1 TO CN 2$ CHSL) =TENT2$5 C1): TERTZ$ C29-=TERXT2Z$ (C1) {1778 7 3:7 “You may have the text on a 

136@ IF WL=S THEN 7 i; CHRS(279;"J";CH/158@ TEKTZ$ CHSL 41) <TEXTLS: RETURN line automat-ically centered if you wi 

R$ 18); 1596 REM Sound subroutines Sh." 

1370 IF Wi=4 OR NL=3 THEN ? #1;CHRS(27/160@ FOR 5-1 TO 15:50UND 1,RND(8)¥1045 |1788 POSITION @,23:7 “Hat any key toc 
sets CRS (18); 718,14: NEXT 5:50UND £1,0,8,8: RETURN ontinue"; :GET #2,8:G0T0 1796 

1380 IF ML=2 THEN ? %1:CHRS(27);"U"3CH| 1610 FOR 5-1 TO £5:50UND 1,RND(8)%1043 |1798 7? "Ran input mask will Show you h 

RS C36) ; 8,10,14:NEXT 5: SOUND 1,6,8, 0: RETURN ow Many Characters will fit on one 

1390 IF Wixi THEM 7 82; CHRSC27);"3"3CH 11628 REM Error handler for printer notjline for any lettering size." 

R$(72); on-line 1800 7 :? "If you make a mistake while 

1406 FOR 1-1 TO NL 163@ CLOSE #1:? CHRS(253);"SPrinter no} inputting responses, hit EG to sta 

1410 7 Si; PTONS CL¥2-1,L%2) ;LSOMS(L¥2-1/t on-line. Place on-line and hit [Yam irt again." 

,L¥#2); ‘'SGET #2,A:IF €80155 THEN 1638 1810 7? :7 “AN option i5 available wher 

1420 IF PR=1 AND L=CLN AND LSONS(L¥2-1 1648 GOTO 1318 eby one Line changes its text from one 

,L¥2—="_O* THEN 7 $1; TEXTCSCLLESM-53,L 116568 REM Start again subroutine label to the next.'':? 

L¥S4-363;:G0TO 1466 £6690 SETCOLOR 2,3,4:5ETCOLOR 4,3,4:7 "|1828 7 “If you choose this option, the 








1430 IF PR=1 AND L=CLW AND LSONS(L¥2-1/K": POSITION 7,41 

L822 OL THEM 7 RL; TEXTCSC(LEMS4-S3, (1678 IF L=i THEN POSITIONW 9,11:7 “OK, 
LL454);:GOTO 1468 START LABEL AGAIN" 

1440 IF LSOMS (L%2-1,L%2)="_O" THEN 2 14660 IF L>1 THEN POSITION 9,21:7 “OK. 
1; TERTS (1454-53, L454-38);:60TO 1468 START LIME ";3L;"* AGAIN" 

1450 IF LSOWS (L¥2-1,L%2) OU THEN 7 |1698 GOSUB 1618:FOR D-@ TO 78: MEXT D:R 
HL; TERTS (CL¥54-53 ,LN54); ETURW 

1460 7? 81; LSOFFS{(L¥2-1,L%2) ;PTOFFS(L¥2 |170@ REM Instuctions 

-1, 12) 1716 7 “KThis program allows you to fo 
1470 WENT L:? 84;CHRS(12);:7 “Label nu ireat print-outs on fanfold label paper ontinue"; :GET 82,A:G0TO 18780 

weber “SLL; done" using an EPSON MKSO printer." 1878 ? "KOK. From now on just answer t 
1480 MENT Lis? 81; CORS(7);: CLOSE 1 1720 7 :7 “You may have any newber ef ihe quest- ions and provide the inputs 
1496 7 :7 “All Dene!": FOR D=1 TO 200:8 |lines up te a maxinun of five." requested.” 

ENT 9:G0SU8 1600 738 7 :? “You may have the text for a |168@ POSITION @,23:7 “Nit any key te c 
1506 REM Any nore? eve line iB normal, small, large o ‘continue; :GET NZ,a:68T0 76 


number of labels printed will be au 
tomatically determined by the"; 

18368 7 * number of extra version 
S of this line that you input.” 

1649 7? :? “If you do not choose this o 
ption, you will be asked to input th 
specific number of copies yeu "'; 

















850 ? “wish to print." 
1868 POSITION @,23:?7 “Hit any key to c 


NDoOorS!:!: 


Well it seems a familiar operating system bug has sanaged to camouflage itself within the last issue, INSIDE INFO 
No. 18, 


In BOOT DISK UTILITY. the line:- ".,.XL users will need to change the JSR in line 2110..." 
Should be:~ "...Atari 400 and 800 owners will need to change the JSR in line 2110..." 


And in the listing, line 20100 should be:- 
20100 DATA 248,24, 165,4, 105, 128, 133, 4, 165,5, 105, 0,133, 5, 206,45, 2, 240,18, 238, 10,3, 208,3 


teers 
MORE FROGRAMS. . - 


Believe it or not, some seabers take the effort to subait articles for INSIDE INFO. Some of the program submissions 
are extremely large and would take up a substantial portion of INSIDE INFO. Yet. these prograas are of exceptional 
worth that I felt that you, as readers should know about thea. These programas will becoge available from the 


Bulletin Board or Software Exchange. My apologies to the authors concerned for being unable to print the whole 
article, 


COMOKILL by Glynn Gough is a short demo that’11 blow your Coesodore owner next door away. You just can’t help but to 
smile in satisfaction. Any Atari loyalist should have this by his side. Definitely the perfect shop window display. 


CHECKBOOK RECONCILER by Andrew Powell does what its name iaplies. By entering your cheque transactions the progras 
creates a reconciled cheque balance which aay be examined against your latest Bank Statement. 


/I 
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Atari Computer Enthusiasts (N.S.W.) 15 an independent non-profit computer users’ group loosely affiliated with 
Eugene A.C.E in the USA. and with no connection to ATARI Inc. Membership fees are currently $30 for the first year 
and $15 (Renewal) thereafter. Membership permits free access to the group’s Bulletin Board service and a 4 issue 
subscription to INSIDE INFO. Unless noted as being copyright, permission is given to reprint articles from INSIDE 


INFO, making acknowledgement to the source. Opinions expressed are those of the author and do not necessarily 
represent the views of ACE (NSW). 


COMMITTEE MEMBERS HOME PHONE NO. COMMITTEE MEMBERS HOME PHONE NO. 
Barry Williaes (President) (02) 452 2229 Tony Reeve (Vice President) 

Alex Kwok (Secretary/Treasurer} (02) 661 3377 Jamie Athas (Meetings Organiser) (02) 349 7365 
Ken Shiu (Editor) (02) 334 2120 Roberto Romano (Program Editor) (02) 327 4898 
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Computer Enthusiasts (N.S.W.). All correspondence and Newsletter Exchange should be forwarded to:- 


A.C.E. (N.S.W.) GPO BOX 4514, SYNDEY N.S.W. 2001 
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Operating hours - SPM to 9AM Monday to Friday. Full 24 hours on both Saturday and Sunday. 


Access requires a personal password from SYSOP upon membership. ’AMODEM’ terainal software or derivatives is 
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MEMBERS’ DISCOUNTS 
COMPUTER-1 (5% Discount]:- 200 Alison Road , Randwick. Phones- (02)399 8845 
HOTLINE BOOKS AND SOFTWARE [10% Discount]:- 693 George Street, Haymarket, Sydney. Phone:- (02)212 6077 
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ARTICLE/PROGRAM SUBMISSIONS 
Articles for INSIDE INFO should reach the Editor as early as possible, and at least ONE MONTH ahead of the release 


date. Disk subaissions should use single density DOS 2 format. Submissions will entitle you to one Software Exchange 
disk at half price. 


MEETING DETAILS 


Meetings are held at 4PM in the 2nd Floor of the Y.W.C.A, corner of Wentworth Avenue and Liverpool Street, — 
Darlinghurst 2010. 


UPCOMING MEETINGS:- TUESDAY TUNE 121 
rin Do Ay FUL YY’ 4 
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Atari Computer Enthusiasts (N.S.W.) 
MEMBERSHIP FORM 


NAME: 

ADDRESS : 

TOWN / SUBURB: 

STALE = ' POSTCODE: 
PHONES:- home ( ) = work ( ) = 


SIGNATURE: AGE: . DATE: / / 


Enclosed is []JCash []Cheque [jJMoney Order for:- 
[]$20 joining membership []S15 membership renewal [J]Notice of change of address 





-oR SALE 


DISK SOFTWARE:- Bruce Lee, Sumer Games, Starfire/ Fire One, Juapaan, O’Riley’s Mine, Stellar Shuttle, Murder on the 


Zinderneuf, Adventure Master (CBS), Choplifter, Skyblazer, Lode Runner, Snooper Troops (Granite Point Ghost). 
CARTRIDGES:- Pengo, Defender, River Raid, Star Raiders, Asteroids, Kickback, Learning with Leeper. 
CASSETTE: ~ Zaxxon 


ALL ARE ORIGINAL AND IN NEW CONDITION WITH DOCUMENTATION, EACH FOR APPROX, $20. CONTACT:- LINDSAY HERON, NEWCASTLE, 


Ph, (049) 5 1049 

teen 
CARTRIDGES:- AtariWriter $45 each 
DISK SOFTWARE:- Synfile (new condition in box), $75 each 
CONTACT:- LAWRENCE LAM, Ph. (02) 643 2742 

teers 


INSIDE INFO No.1 and No.3 photocopies no longer needed. 50 cents (plus postage). PHONE:- (02) 623 7393 


erry 


PRINTER SYSTEM:- Atari 822 printer. 4 rolls of paper, software to screen dump and fancy characters. NO interface 


required. Whole system, $80. CONTACT:- Ken Scalley, Winston Hills, Ph. (02) 624 4541 
WANT ED 
ZORK I: CONTACT:~ Glynn Gough, 174 Bargara Road, Bundaberg, Qld. 4470. Ph. (071) 71 S17! 
reaee 


ANALOG, ISSUE 16: CONTACT:- J.Nolan Ph. (02) 424 8998 
seer 


DOES anyone have a programa to run the graphics for MR T from the ‘A-Team’. My school kids are driving ae crazy to 


see hia on the screen. CONTACT:- Paul Sweeney. 49 Ingleburn Road, Leppington 2171. Ph. (02) 606 5034. 
oe oe oe oe 


| PROGRESSIVE COMPUTL 





. BOX 243, ENFIELD, NSW 2136 TELE hil (02) 76- nied 

| Bact AL RRP $129.00 R-VERTER RRP $89.00 

This is the BASIL Atari should have used, Lone — Connect most modeg@s {those with DEZS secketi ta 

programs car run 2-4 times faster. Special the ATARI without the 350 intertace. Connects 

commands for Flayer/ Missiles, strings, trace, to stancard [/@ port. Inciudes R$z32 handlers, 

auto line numbering, 005 functions & sore, smart terminal software with <MODEN protoca.., 

even 30 colums display, 

ACTION! RRP $149, 00 

High level, structured, compiied language for MPP Product 

Atari, For those who have found BASIC too siow Print Bufter RRF $2327 

or assembler too difficult. Fast, powerful and For all computers with centronics ou stput, 54K, 

user friendly. sel? test, clear button, copy repeat button. 

MAC/45 RRP $149.00 Printer inerfaces - connects to standard 1/2 

A fast, powerful macro assembler, port, compatibie with all software. BickOP RINT 

Includes Editor, Macro assembler and debugger. $it9, MPP-115G with I/O port: #149 

WRITERS TOOL RRP $149.60  ANTIC single issue $2.50 

fesigned for writers who want to write, not i year subscription #100, G3 

spend hours learning to use a word processor. ANALOG - cali for availability 


Use all your printer’s capabilities when 
printing. Includes speliing checker. 


Cali for your nearest dealer or send cheque, eat . 
ap} 


TOOL KITS & BOS XL RRP $69.95 order or Bankcard number (with name as 
Special library of macros for MAC/&43. and validity dates), 
BASIC AL kit-extended commands + demo games PRP - $4.00 ist item, $1.00 ea. item thereatte: 


ACTION’ tit-library of subroutines + demo games Prices subject iG change without notice. 


DEALER ENGUIRIES WELCOME 


th 
di 
Re ' 
mi ana 





